La revue francophone independante pour les utilisateurs des 

Apple ][+ , //e, //e+, //c, IIgs™ et Macintosh" 




MlNlTEL, Apple // et Macintosh 

I Telechargement de fichiers via Minitel 
i Le debugging sous ProDOS 
« ProDOS, fichiers et RAM 

# Un systeme pico-Expert 

# Codage de messages 
« Scrollings en HGR 
« JustText a l'essai 

# Extasie a l'essai 




M23K 



NUMERO 28 - Pfl/X 45 F 



:~ :::::450O5 00280 /SSW ; 0294-6068 




TOPIQUES PASCAL est un livre qui vous permet 
d'acqucrir la maltrisc- complete dc votrc Apple en 
PASCAL. Ce livre presenter 

- le fonclionacment des peripheriques el les 
lechniques PASCAL pour les gerer efflcacement 
(gestion directe du clavier, multifenetage r gesiion 
de plusieurs curseurs, inversion directe dc Tccran, 
lest de la disponibilite de rimprimante, copie de la 
page texte ou graphique, utilisation de Tlmage 
Writer, paramctragc dc la carte Super scric, 
communications, redirection de l'ecran vers la 
disquette, de rimprimante vers l'ecran) 

- ]es extensions UCSD pour gcrcr la mdmoirc 
(tableaux dynamiques, tableaux creux, editeur de 
texte, tableur, objet pointe de taille variable, 
codeur LISP) ou les disquettes (fichier 
dynamique, fiche de taille variable a acces direct) 

- les moyens pour realiser de vastes programmes 
(morcellement du texte, segmentation du code, 
librairies, gestion des erreurs, ge*ngrateur de 
programmes, g^nerateurs de gerierateurs, traces, 
types abstraits, programmation orientee objet) 

- le fonctionnemem systeme et les derails de 
Timpl^mentation Apple (types, formats flchiers, 
plans memoire, adresses du BIOS et de 
l'interprete, appels systeme). 

En tout 848 pages, 14 1 programmes, 247 figures, un 
index complet. 



Envoyez votre commande accompagnde du cheque a: 

L'lNSTITUT PASCAL 

26 rue Lamarrine - 75009 PARIS - Tel. 42.85.10.82 

TOPIQUES PASCAL (290F TTC, erranger +20F) 
_ les 4 disqucucb buuivc ( 100F TTC) 

NOM: 

Adresse: 



Les reliures Pom's 

Pom's vous sert de r6f£rence, 
et a ce titre vous le consultez souvent. 

Pour faciliter le rangement en 
bibliotheque et la consultation, Pom's 
vous propose des reliures toil£es 
reunissant 6 numeros, soit un an de 
documentatioTL 



Une fois reliees, les revues forment un 
livre agreable a utiliser, insensible a la 
manipulation. 

Ces reliures sont couleur Bordeaux, le 
logo Pom's est frapp£ sur le dos et un 
aplat est reserve pour noter l'ann^e. 
La reliure se fait par brides. 
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Le chemin des ecoliers, tei est souvem ie pas 

sage par Ie Bureau. Pour changer (^application, il suffit 
aujourd'hui d'appeler Paccessoire lc Raccouici". Apres avoir 
confirme votre intention de quitter le programme en cours, 
une fenetre de selection apparalt et un simple double-clic 
vous fait passer de Basic a ScreenMaker, de MacPaint a 
Multiplan et, pourquoi pas, de MacFoilh aMacPoker. . . 

Des avantages : 

SllF UI1 128 KO, ne pas passer par lc Finder e'est 
eviter des manipulations gourmandes en temps et 
en patience. 

Slir U11 512 KO, les applications disposent de toute la 
place m&noire. 

Slir un Mac Plus, les changements sont quasi- 
insUuiiajies el les 768 Ko de memoirc cache sont 
disponibles. 

Compatible avec Switcher : VOUS pOUITCZ 
changer l'une ou I'autre des applications gerees par 
Switcher directement par cet accessoire. 

Compatible disques durs : memesi votre dis- 

que dur est partage via AppleTalk. . . 

DlSpOnible a tout moment, "Raecourci" est toujours 
ulilisable ear il ne n&essite pas une installation 
prealable des applications (sait-on toujours a 
I'avance quelle* applications seront necessaires a 
un uavail donne?). 

Avec Pom's, travaillez directement ! 
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Editorial 

L'annee 1987 sera celle du Mac ouvert ; il est en effet attendu depuis deja longtemps. Sera-t-elle 
aussi celle de 1'Apple IIgs ? Personne ne saurait aujourd'hui le dire, la richcssc des possibilitcs dc ce 
materiel et F excellent© compatibilite avec le reste de la gamme Apple // etant helas compensees par 
un prix relativement eleve. Les transformations lie en IIgs dont on parte aujourd'hui resoiidront 
certainement ce handicap. 

Au niveau du logiciel Macintosh, signalons que - depuis juin 86 - on nous promet Writer Plus pour 
la semaine prochaine... Tot ou tard, cela devrait devenir vrai ! Autre retard : dBase Mac qui, line 
semaine avant sa sortie aux fttats-IJnis, a hrutalement ete stoppe par Ashton-Tate. Un developpeur 
avait en effet constate que la gestion de la memoire virtuelle ralentissait enormement le fonclionne- 
ment a partir d'une certaine taille de fichier. Retour done au drawing-board? la sortie du produit 
etant repoussee au milieu de Pannee, car il est actuellement reprogramme en assembleur. 

Ceci dit, les produits nouveaux qui sortent actuellement dans les garnmes Mac et IIgs sont 
nombreux, comme vous pourrez le voir dans la rubrique Micro-informations. 

Nous savions vous avoir propose des programmes seduisants dans le numero 27, mais, avouons-Ie, 
nous n'attendions pas un tel sucees. Vos courriers et appels telephoniques se feront certainement 
aussi nombreux et enthousiastes pour les programmes de transmission proposes dans ces pages. 
Notons que, comme frequemment, Pom's vous offre au prix du numero des logiciels de haute 
qualite et de haute fiabilite dont la valeur depasse le cout d'un abonncmcnt revue plus disquette. 
Rappelons que les disquettes d'accompagnement (60,00 F pour Apple // et 80,00 F pour Macintosh) 
comportent les sources bien sur mais egalement les programmes executables. 

Pour vous simplifier la communication, Pom's fait dans le 'hard' : nous tenons a votre disposition 
des cables dc liaison Applc/Minitcl. Pcut-ctre serviront-ils pour de prochains programmes. . . 

Herve Thiriez 
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SHOW, I, C, O : 

le debugging sous ProDOS 

AfcxandreAvrane 



Comme vous le savez tous, la 
recherche des erreurs d'up 
programme est une des activites 
principals de l'informatique. 
Tache 6 combien exaltantc, bicn 
entendu... 

Malheureusement, il n'existe pas 
(encore) de m&hodes infaillibles 
permettant de les eliminer des la 
naissance, c'est-ii-dire la 
conception d'un logiciel. En 
revanche, une panoplie d'outils 
destines au debugging pcrinct de 
les deceler plus rapidement- 
Examinons-les aujourd'hui, dans 
l'optique d'un programme ecrit 
en assembleur ou en Applesoft, et 
dans un environnement ProDOS. 

Les methodes 

Trois types d'approches sont 
souvent envisagees : 

• D'abord, la metbode de la 
grande patience pas loujours 
recompensed : c'est 1 'analyse 
pas-d-pas des instructions 
cxccutees ; le TRACE du Basic, 
ou un logiciel specifique (tel que 
Bugbyter livre sur certaines 
disquettes ProDOS) pour les 
routines ecrites en 6502. C'est 
long, fastidieux et eprouvant. 

• Cette premiere approche peut 
etre completed par des ordres 
d'arret a fin que lc programme 
rende la main et qu'il soit ainsi 
possible d'examiner la valeurs 
des variables Applesoft ou de 
certains octets de la memoire. II 
s'agit, rcspcctivement, des 
instructions STOP et BRK. 

• Enfin, une mise au point 
affinee necessite souvent une 
analyse detaillee des appels vers 
le systeme d'exploitation. Les 
comniandes MON et NOMON du 
DOS 3.3 permettent ainsi 
d'obtenir des informations 
pertinentes en un minimum de 
temps. 



En complement, on peut trouver 
un certain nombre d'utililaires 
afin d'accelerer le temps passe au 
debugging : • par exemple 
D-CODE (Beagle-Bros) et 
certaines routines proposees dans 
Beneath Apple DOS (et bien sur 
dans Pom's). 

Remarquons que le TRACE de 
1'Applesoft ndtait pas disponible 
sous DOS 3.3 ; en revanche, les 
instructions MON et NOMON 
sont ignorees sous ProDOS. 
Aujourd'hui, notre objectif sera 
done d'en creer les equivalents 
grace aux commandes SHOW et 
NOSHOW. 

MON & NOMON 

Pour rappel, ces deux 
instructions penneuent d'afficher 
a volonte, sous DOS 3.3 
uniquement. l'ensemble des 
commandes passccs par le 
programme Basic veis le systeme 
d'exploitation (CATALOG. 
READ, VERIFY, etc.) par 
l'ex&ution de lignes telle que : 

260 PRINT CfTRS (4) ; "OPEN FI 
CHIER1 , D2 " 

Trois parametres facultatifs 
definissent le type d'affichage : C 

pour n'afficher que les 

commandes, I (input) pour les 
donnees lues par un READ, 
(output) pour celles ecrites par un 
WRITE. 

Deux points essentiels semblent 
dignes d'amelioration : 

• D'abord, MON n'a d'effet que 
pour un programme ecrit en 
Applesoft (ou en Integer Basic, 
pardons aux puristes). En 
particulier, une routine en 
assembleur qui appelle le File 
Manager ou RWTS ne peut etre 
examinee. 



• Ensuite, l'affichage & Fecran 
brouille libs rapidement celui-ci si 
il est utilise I d'autres fins (grille 
de saisie par exemple), ce qui 
occasionne une gene non 
negiigeable. 

Les commandes offriront done 
les particularites suivantes : 

Les commandes affieh£es sont 
ceUes qui appellent effectivement 
le noyau de ProDOS (MLI), et 
non pas la chaine de caractSres 
qui suit le PRIN T CHR$(4) d'un 
programme Basic. Par ailleurs, 
1'interception de cette chaine par 
le Basic. System n'est pas 
documentee par Apple ; il faudrait 
done, pour la realiser, modifier 
directcment le Basic.System hors 
ses pages globales, avec tous les 
risques lies a une fScheusc 
dependance vis-a-vis des 
versions actuelles de ProDOS. 

Les anciens parametres (C, I, 0) 
sont conserves. Dc plus, le 
parametre P permet d'envoyer les 
informations egalement sur une 
imprimante connected en slot 1. II 
sera alors possible d'executer un 
programme en obtenant une trace 
papier des actions effectu&s. 

Enfin, nos nouveiles commandes 
ne pcuvent malheureusement pas 
s'appeler MON et NOMON pour 
assurer une compatibility totale 

avec les programmes ecrits sous 
DOS 3.3 car, erreur de 
conception du Basic.System, les 
commandes de celui-ci (dont 
MON et NOMON qui sont 
reconnues mais ignorees) ne 
peuvent etre redefinies par une 
commandc cxteme. II aurait etc" 
preferable que le Basic.System 
s'interesse & l'existence 
d'eventuelles commandes 
extemes avant de s'occuper des 
siennes, et non l'inverse. 
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Exemple d'utilisation 

A titre d'illustration. le 
programme en Applesoft: 

2 00 D$ - CHR$ (A) 

110 PRINT D$ "SHOW, C,0,P n 

120 PRINT D$ "OPEN FICHIER1" 

130 PRINT D$ "WRITE t'ICHIERl" 

140 PRINT "ARCnRF" 

250 PRINT "GHIJKL " 

160 PRINT D$ "CLOSE FICHIER1" 

1 70 PRINT D$ "N03H0W, C f t ?" 

fournira, lors de sa premiere 
execution, sur riraprimante 
conncctce : 

C5 : Online S6,D1 

C4: Get_file_info 

/DISK1/FICHIER1 (46) 

CO: create /diski/fichieri 

Cfl: Open /nTRKl /FTCHTRRT , #01 
CB: WrlLe #01,L$0OOE 
ABCDEF 
GHIJKL 

CC: Close #01 

Chaque ligne affich6e comprend 
(toutes les valeurs sont fournies 
en hexadecimal): 

• le numerique d'appel S 
ProDOS, 

• le libelle correspondant \ cet 
appel, 

• eventuellement, le ou les 
paramfctres pertinents, 

• enfin, un eventuel code-retour 
entre parentheses si une erreur 
s'cst produitc. 

Cette methode de visualisation 
des informations peut done aussi 
servir a mieux comprendre le 
fonctionnement du Basic.System, 
ou a developper son propre 
interpr&eur en assembleur. On 

pourra d'ailleurs en profiter pour 
relever une certaine redondance 
du Basic. System qui a parfois 
tendance a demander des 
informations qu'il connait dejzi. 

En reprenant les Stapes de 
l'exemple precedent, on note 
successivement: 

• Un appel Online afin de 
connaitrc le nom du prefixc 
courant. 

• Un Get file info pour verifier 
qu'il s'agit bien d'un fichier 
texte. A la premiere execution, 
ce fichier n'existe pas et on 
obtient le code erreur 
correspondant. En rfcgle 



generate, d'ailleurs, il est 
chaudement recominande de 
toujours faire preceder toute 
manipulation de fichier par un 
Get_file_info. 

• Un Create, uniquement a la 
premiere execution, pour creer 
le fichier avec ses attributs 
(type, date/heure, etc). 

• Un Open ou le programme 
indique le nom du fichier, et 
re$oit en retour un numero de 
reference. 

• Un Write, correspondant avec 
le numero de reference 
precedent, sur une longueur 
de $000E octets (14 octets, 
c'est-S-dire 2 enregistrements 
de 6 caract&res suivis d'un 
retour-chariot). 

• L'affichage des donnees 
"ABCDEF 1 et "GHUKL" car 
on l'avait demande (option O) 

• Enfin, la fermeture du fichier. 

Bien entendu, on aurait obtenu le 
rneme resultat si le programme 
Basic ci-dessus avait ete ecrit en 
assembleur. 

Informations 
affichees 

Les param^tres affiches par la 
commande SHOW reprennent en 
parti e 1'ensemble des paramfctres 
utilises pour chaque appel a 
ProDOS. En particulier : 

- les noms de fichiers utilises 
et/ou le prefixe ; 

- le numero de reference fourni 
par ProDOS i Touverture ; 

- la longueur demandee des 
lectures/ecritures de donnees ; 

- la longueur effectivement 
obtenu e si elle difftre de celle 
demandee ; 

- la position courante sur le 

fichier, en nombre d'octets 
depuis le debut ; 

- les indications de slot/drive ; 

- lc numero de priorite pour les 
appels de gestion des 
interruptions ; 

- le numero de bloc lu ou ecrit ; 

- le caractfcre de fin de ligne suivi 
de son octet de masque. 

Afin d'alleger la densite de la 
presentation, seules les 
informations pertinenies pour 



1'appel en cours sont fournies. 

De plus, lorsque les param&tres I 
ou sont actifs, les octets de 
donnees des fichiers texte lus qu 
ecrits sont envoyes k l'affichage. 
Afin d'eviter les crises d'epilepsie 
des cartes d'interface, les 
caraclferes de controle 
eventuellement rencontres sont 
ignores. 

II n'est pas prevu de rappeler 
aujourd'hui le detail des types 
d'appel & ProDOS, qui peuvent 
Stre obtenus dans le Technical 
Reference Manual d' Apple ou de 
Beneath Apple ProDOS. (On 
pourra egalement consulter le 
numero 20 de Pom's). 

En revanche, les codes-erreur 
possibles sont : 

00 pas d'erreur 

01 fonction inconnue 

04 nombre de parametres 

incorrect, pour la fnnrttion 
25 Lable d' interruption plelne 

27 i/o error 

28 pas d'unite dans ce 
slot/drive 

2B volume protege contre 

1 1 ecriture 
2E un volume, sur lequel se 

trouve des fichiers ouverts, 

a ete enlev£ 
40 synLaxe incorrecte du 

prefixe 

42 pas plus de 8 fichlets 

ouvert simultanement 

43 numero do reference fourni 

non alloue a un fichier 

ouvert 

44 le chemin d'acces du prefixe 
n'a pu etre trouve 

40 volume eicLuellement non 

monte 

46 fichier inconnu 

47 impossible de creer ou 

renommer vers un nom dc 

ticnier deja existant 

48 plus de place sur le volume 

49 plus de place sur le 
directory du vnlnmp 

4A version de ProDOS trop 
ancienne pour lire ce 
fichier 

4B type de stockage du fichier 
inconnu 

4C lecture impossible apres la 

fin du fichier 

4D Impossible de se positionner 

apres la fin dn firhier 
4E erreur d'acces au fichier 
(fichier verouille) 

50 impossible d'ouvrir, 
renommer ou detruire un 
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fichier ouvert 

51 directory endommage 

52 volume non formace pour 

PrnDOK 

53 valeur nors champs d'un 
parametre d'appel 

55 pas plus de volumes eonnua 
simultanement par ProDOS 

56 adrcsse de buffer incorrect 

57 deux volumes montes ont le 

merrte nom 

58 carte du volume endommagee 

A l'exception du code-ret our 00, 
qui indique un accomplissenienl 
correct, les codes erreurs sont 
affiches, & la suite des 
parametres, entre parentheses. 

Installation 

Les commandes SHOW et 
NOSHOW sont g6r£es par une 
routine en assembleur qui utilise 
le module donne par les 
commandes TDUMP ct I NIT de 
Pom's 20. Le fichier source 
SHOW.CODE.S, assemble par 
Big Mac, four-nit l'objet 
SHOW.CODE. 

Ce dernier est ensuite chaine avec 
la routine CMDLOAD par le 
programme CMDLTNK pour 
fournir un fichier SHOW 
directement executable. 
(CMDLOAD et CMDLINK ont 
ete explicites en detail dans le 
numero 20 de Pom's). 

Pour initialiser les commandes 
SHOW et NOSHOW, il suffit dc 
faire : 
-SHOW 

ou 

BRUN SHOW 

II est egalement possible de 
charger les commandes par: 

BLOAD SHOW. CODE 
BRUN CMDLOAD 

Aprfcs chargcrnent du 
programme, aucune differente 
□'est visible tant qu'une 
instruction telle que SHOW,C 
n'est pas executee. 

Le parametre d'assemblage SLOT 
permet dc specifier le slot de 
rimprimante si celle-ci n'est pas 
connectee en slot 1. Lc 
programme fonctionne 
n^anmoins parfaitement sur une 



configuration sans imprirnante, 
pourvue que la commande 
SHOW.P ne soit jamais executee. 

Enfin, flotons que l'utilisation de 
ces deux nouvelles conimandes 
est compatible avec celle des 
autres commandes utilisant le 
principe decrit par CMDLOAD. 
En particulier, la commande 
TDUMP de Pom's 20 (qui 
permet de verifier entre autre le 
contenu des ficliiers texte) peut 
etre utilisee conjointement 

De merae, SHOW gere les 
tentatives d'interruption et peut 
done co-exister sans problemes 
avec des programmes qui les 
gen£rent, commc DATHEUR de 
Pom's 24 qui utilise les 
interruptions de la carte souris. 



Utilisation hors Basic 

II est possible d'obtenir, dans un 
environnement oil rinterpreteur 
systeme n'est plus le 
Basic. System (par exemple le 
Filer, Convert, Exerciser, etc), 
les informations affichees a 
chaque appel du MLI. Dans ce 
cas, il faut modifier le source et : 

- fixer le parametre BASIC a 
(il est normalement a 1) 

- fixer le parametre ADRESSE 
I une adresse ou la routine 
pourra se loger sans intcrfcrer 
avec l'interpreteur systeme 
actif (par exemple $8000 pour 
CONVERT) 

- fixer le parametre OUT & si 

on desire une sortie 
uniquement sur ecran, a 1 
pour une sortie 
supplement aire sur 
imprimante 

- fixer le parametre XSYSIO a 
1 pour n'afficher que les 
appels au MLI, a pour 
obtenir en plus les donnees 
lues ou ecrites vers tous les 
types de fichiers 

- assembler le source ainsi 
modifie 

- ne pas chainer le module objet 
avec CMDLOAD mais 
l'executer directement (brxjn 
SHOW.CODE) 

Les informations de debugging 
seront alors toujours envoyecs 



(impossible de moduler leur 
apparition). 

Ainsi utilise SHOW permet par 
exemple d'ob server les 
algorithmes des programmes 

utilitaires fournis par Apple sans 
devoir les disassembler dans le 
detail. 

Ainsi, ne cherchez plus pourquoi 
CONVERT 1.0 est si long pour 
lire un catalogue DOS 3.3 : il se 
contente seulement de lire 
consecutivcmcnt jusqu'a cinq fois 
les memes blocs de la piste $11! 

Attention, le parametre 
ADRESSE, s'il est mal choisi, 
peut entrainer un magnifique 
ptantage du systeme. II est done 
tres important de le determiner 
avec soin afin de charger 
SHOW.CODE dans une zone 
memoire qui ne sera jamais 
affectee par rinterpreteur actif. 

Cette utilisation du programme 
SHOW est surtout destinee a un 
but pedagogique (pour rnieux 
discerner le fonctionnement du 
Filer par exemple), ainsi qu'aux 
ambitieux qui ecrivent leur propre 
interpreteur systeme. 

Fonctionnement 
interne 

Le principe de fonctionnement du 
programme repose sur 
l'interception des appels au MLI 
qui ont comme point d'entree 
l'adresse $BF00. En modifiant le 
JMP qui se trouve h cette adresse, 
une routine prend la main sur 
tous les accfes effectues vers 
ProDOS. 

En cxaminant alors la pile, 
SHOW determine l'adresse de la 
routine appelante, ainsi que le 
code d'appel au MLI et l'adresse 
de la table des parametres 
associcc. On peut alors appeler 
directement MLI en lui 
fournissant les valeurs 
precedemment trouvees. En 
retour, il rcste a gerei l'affichagc 
des informations concernant cet 

accSs, puis rendre la main a la 
suite de la routine appelante. 

Bien entendu, il faut egalement 
s'occuper de certains details, 
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corame les interruptions (car une 
carte souris peut en generer tres 
fr6quemment), les vecteurs 
d'affichage (en deconnectant 
temporairement le Basic.System 
qui nc comprcnd plus rien si on 
lui dit ce qu'on affiche...) et 
d'autres babioles telles que la 
sauvegarde/restitution des 
registres ou la sortie en 
catastrophe si jamais la routine 
appelante se met a charger un 
nouvel interprctcur syst5mc. 

SHOW gfcre egalement les codes 
d'appel inconnus, en affichant 
alors le libelle "Unidentified" 



suivi d'un beep perempLoire. On 
pourra remarquer que 
l'EXERCISER de la disquette 
Apple ne se gene pas pour 

envoyer quelques codes 

inconnus... 



Fichiers sur la disquette Pom's 

T.SHOW.CODE 

source en Big Mac, type 

TEXT 
SHOW 

objet executable apr6s 
chainage avec CMDLOAD 
(Pom's 20) 



SHOW ne pretend nullement Stre 
l'outil complet de debugging sous 
ProDOS mais pourra rendre de 
grands services pour depanner 

cenains problfemes de plantage. 
En particulier, couple avec la 
commande TDIJMP, il permet 
une reparation trfcs rapidc dcs 
programmes qui accedent aux 
fichiers texte. Enfin, c'est un aide 
pour la mise au point rapide (c'est 
a dire sans faire de pas-i-pas) des 
routines en assembleur qui 
manipulent ProDOS. 



Source T.SHOW.CODE 

(Assembleur Big Mac) 

LST OFF 

9 W 

ProDOS SHOit,I,C,0,P * 
* • 



' Commutes SHOW et NOSHOX pour ProDOS ' 

* Copyright (c) 1986 Alexandre- Avra.ne * 

' Moditie: 05/07/86 

* CM: 07/01/66 

* Assexbleur: Biq Mac ' 
■ Fonction: 



' Slaule les commandes MON et du DOS 3.3, avec les 

' /nrflB^tr^s C tcamnandes) , I (input data) et foutput data) , 

* P (envoi dos informations swr 1 ' imp rim ante) . 

- Les ccuuiiitf mies coi ieipondent oua apptslo au MLl, et nun 

* les instructions issues ae I'Appiesozt. 

* Syntaxe ; 



* SHOW ■":> s ramotTOi J 2 os mcdos do debugging 
' NOSHON <paran±tre3> deoactivc 

' pararnetres: 

* C attichaQes des appels de 1 'InterpreteUr vers ProDOS 

* I affichage des octets lus d'un fichier texte 

I affichages des octets ecrlts vers un fichier texte 

* P enwil rfo J 'a ffi rh*gt> v*»r* 1 'imprisiante 

* Lea paraa dtrca peuvent cue prce£dca d'une Yicgule 
' (pour assurer la coapatlDllIze avec le DOS 3.3). 

* si aucun parametre r la commande est ignores. 

* Ce programme doit etre linke avec CMDLOAD (Pom's 20) 

* Cnn figuration 



• Apple 11+, //e, //e+, //c, /// 

9 Video: 40 colonnes (avec minuscules) ou 80 colonnes 
' Processeur: 6S02, 6SC02, B6SC02 

* ProDOS + Basic. System ftoutes versions) 

BASIC - 

' Ce pa i asnit.ee iJ ov. duit etre ml 3 a zero 



' pvjc uLlliauc ce pcuyrasme sons Basic .Systran; 

* les param6tre3 sont alors tous consideres actits. 
' La routine doit alors imperativeiaent etre chargee 

* dans une zone d'adresses n' interferant pas 

* avec l'interpxeteur systeme actll. 

SLOT ~ 1 

* Localisation du slot de 1 'laprlaente 



DO 1 -BASIC 



ADRESSE 




$8000 


OUT 




n 


XSYSIO 




1 




rrtf 




CH 




$24 


CSV 




$36 


PTR1 




S3C 


PTrt2 




$3E 




DO 


BASIC 


Z&_BUFF 




$200 


EXTRHC34D 




SBE06 


SI OUT 




SBE30 


X TUN ADD* 




$BE50 


XLEN 


» 


SBF5? 


XCSUM 




$DE53 


P3ITS 




3BE54 


FILETTPc 




$BEBB 




FIN 




MLl 




SBF00 


CROUT 




$FD8F 


P KBYTE 




$FDDA 


COUT 




SFDED 


HTS 




$FF58 




DO 


BASIC 




ORG 


S2100 



ELSE 

O.SG ADHSSSE 



* Macros 



MAC 

LDA Jl 

STA }2 

LDA 11+1 

STA 12+1 
<« 

MAC 

LUI tjl 

LDA (PTR1) , Y 

<« 



adresse de cha rcement 

par riefaur, p/ts de sortie vers 1 ' inpr 

par defau-t, soulomcnt show,c 



position horizontale 

vecteur de sortie des caracteres 



buffer de salsle 
commande externe Basic. Systen 
vecteur reel de sortie pour Basic .Sys 
rappel apres extraction des paranetres 
longueur rle Ja enmmimrle externe 
nuneeo da cosuaanda Baaio.Syotata 
flags Je *«KflRrCCfjV ■-■»• Baaiu .SysLvm 
type de rlcnier pour uaslc. system 

acces au ProDOS MLl 
f^revir—rhJt rint 

affiche 1 'flccuoulateur en hexadecimal 
affiche 1 ' a cc lunula c e ur tin a ac-i 1 
instruction FTS ixmuable (on espere!) 



(S200Q-20FF pour CMDLOAD) 



DISPLAY MAC 

LDA 921 
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JSP COOT 


STA 


XCNVM 


• -• ' • •• «*Com« a Basic System 


<« 


OTA 


tdzts 


aucun parajn^Cre a (aire extroj re 




STA 


PBirs+i 




R£G MAC 


STY 


XLEN 


iongueur de la commande 


PHP 


»> 


MOVE, CMD 


BACK*!/ XTRNADDR adresse de retour 


PHA 


ELSE 






TXA 


LDA 


00 


si iiti ) isnt 1 nn sans Bssi cSy/tt#m. 


PHA 


STA 


FUiG 


. . .lei ;■ sent octils on 


TYA 


STA 


fUC' J 




ftiA 


STA 


FLAG*? 




«< 


LDA 


tOUT 






STA 


FLAG*- 3 




_RZG MAC 


FIN 






PI A 


DO 


BASIC 




TAY 


CLC 




e'est bien notre oosxnando «xCern9.' 


PLA 


RTS 




on nana vappe-lle A la ligne aulvante 


TAX 


FIN 







PLA 

<« * Mise en place des interceptions 



EXP OFF • On arrive ici des *ju* ProDOD a c&mprls gu'ii n'avaie poa 

* A exzralre des paraaGzces pour nozre commande 



' Exataen 


de la commande 


et des paramezres 




CND_NEXT LDA 


ML1+2 


1' Interception est-elle deji la? 














Off 


§>ULl 




* On arrive ici A charjue 


retour-cha riot en mode inmediaz. 






BCS 


CMD_SET 


non: £1 faut la placer 


• et pour cha 


que command 


e precedee de etrJ-d an mode di//Are. 




LDA 


FLAG 
















ADC 


FLAGi 2 




START 




a 








ADC 


FLAGt-2 


avcun parametre C,I,0 actlr? 




DO 


BASIC 








Off 


f£'3 






CLD 




convention avec ProDOS 






BKz 


CI AO 


— au moins un 




IDA 


0>FIN+S1OO 


conventions pour CMDLOAD 




OFF CMD 


SSI 








LDA 


0>LONG-$1OO 






»> 


f*~VF, SV MLZ*1; MLI+l rt^rnnnprr* } 'Inrorcoprinn 


V_OLDCMD 


IDA 


RT8 








CLI 


















CLC 








SEl 










BTS 








LDA 


0<1N_BUFF 


le buffer d'encree contienz la sa 


isle 












STA 


PTPd 






CP© gfif 


»> 


MOVEtMLIti 


SV_MLItl aCocAe 1'adzesse reeiJe d'enzx 




LDA 


0>1N_BUFF 








SKT 








STA 


PTB1*1 








»> 


MCVT,HY MLZ*2;MLI*1 intercopte J«s appals vors ML2 




LDY 


tsrr 






CZAQ 


CLC 




pia (j'eireui a" l'axicution de notre coaai 




txc* 










CU 






CMD_L1 


I NY 










rs 




cezze tols-cl, e'esz flnl. 




LDA 


(PTRl), Y 


prend un octet salsl 






LSA 


crctczxT 


(adresae pour ezre relog£e) 




acs 


CMD_L2 


on sait de ja Que e'est peut-etre 


saox 












CMP 


CMD, Y 






* ■ ■ ■ ■ ■ ■ 










DNE 


CHD_L2 


non 








- appela 




CPX 


06-1 


6 caracteres dona NOSHOH 














BEQ 


FOUND 


oui 




• Otl 8TT 




w rcucint! queJconque appelle MLI 




BSE 


CMD_Ll 


pas encore certain <jmp avec carryO/ 




















NT t£Z 








CMD_L2 


F.OR 


rMTH-2, Y 








>» 


SAVFJ&K 






BNE 


NO CMD 


non, e'eat paa pour moi 














CPY 


04-1 


4 L.-a£eii.*t.«ii«?a dana SHOW 






rsx 








BhlU 


tVVNU 


oui 






SKI 








SEC 




indique qy'on chercne sur shvh... 






LQA 


SI 05, X 


recupere 1 'adresse du prograitune appelant 




BCS 


CMD Ll 


...eC on continue 






STA 


GO ?Of*i 


-..et sauve pour l'appeler plus t&rd 


Formn 


TYA 










STA 


PTS1 






EOP 


03 


donna ai SHOW, 6 al NOSUOH 






LDA 








STA 










STA 






FOUND_Ll 


INY 










STA 


PTX1+1 






LDX 


$4-1 


4 parametres possibles 














LDA 


(PTRl) , Y 










CET.i 


code d'appel a MLI 




CMP 


f - H 


on ignore les vir/jutes... 














BEQ 


F0UNP_L1 








INY 








CMP 


*' " 


. . >et X*a £>JanL3 








ffT»i> , r 






BbU 


tVUNU_Ll 








STA 








CMP 


t!W 


si retaur-chari ot. . . 






m 








BEQ 


CMD OK 


...fin de la saisie 






LDA 


tPTRD f r 


adresse des parametres 


F0UND^L2 


CMP 


PABM.X 


un des parametres? 






STA 


HLI_PAZ>*+> 






BNE 


FOUND L3 


j& no s*is p** encore 






CLI 








LDA 


PTR2H 
















STA 


FLAG, X 


lea flags seront nuJa st actives 






IAJ 


bAXlC 






BPL 


F0UND_L1 


...et on recherche ot'auzres paras 


etres 




LDA 


MLI_CODE 




F0VND__L3 


DEX 










EOR 


0SCA 


lecture demandee? 




BPL 


FOUND L2 


peuz-etre le suivant 






BNE 


GO_MLI 






SMI 


NO _ CMD 


i neonnu 






WA 


PI hP.TYPF. 
















CMP 


0SFF 


eur un fic-nier syst&no? 


NO_CMD 


SEC 










BNE 


GO MLI 


ai uul. uji va ctierger un nouvel inrcrpc 




CLI 










>» 


MOVE, V OLDCMD+l; EXTRNCHD deconnecte la coaroande ext. 




JMP 


(V_QLDCHD*lt nl SHON, ni NQSHQff... 






JSP 


OFF_CMD 


deconnecte J 'interception vers MLI 














»> 


LOAD_REG 


on restore tout 1 ' envl ronnement . . . 


CMD_QK 


CL1 










JMP 


MLI 


...et on rend 1'ame en Dlonaeant sur MLI 




r.0A 


#n 








FIN 
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GCMW.I »> LOAD _R EG 
STA T£MP~ 
PLA 
PLA 

IDA TEMP 
9V_MLI JSR $0000 
MLI_CODE NOP 
ML I _F ARM NOP 

NOP 



;depile le JSR MLI du pgn appelant 

on appoll-o MLI 

nop pour «tre rclo^gcable 



- Gestjon des reCours d'appcl 



* On arrive ici dda que le MLI a fait son boulot 

STA ML1_RC recupere ie code-retour MLI 

»> SAVE_REG 

»> MOVE, CSW; SV_CSN nanvm l'*nr:1*n vmnrmiir dm xnrrta 

LEVI CM 

STA SV_CH 

SSI ;lnhlblbe toutes lea Interruptions 

IDA FLAG* 3 sortie vers 1 ' imprimante? 

BEQ PRINTER 

DO BASIC 

>» MOVF.,HT_00T;CSW n*» passe plus par Rasi c. System 
FIN 

BliE CHECR_C -jmp 

PKiNTtM STA CSW 

STA CH 

LDA iSLOT*$C0 

STA CSW+1 imprimant** activ&e (vera SCI 00) 

CHECK _ C »> MOVE, MLI_PAFIM; PTFl 

LXJA FLAG shOU r c acttt ? 

BEQ BACK 

JMP 10 non 

BACK LDA MLI_CODE 

JSR PB1NT_L4 
DISPLAY, " 



affiche Ic coda 



T_CALL_V LDA T_CALL 

»> MOVE,T_CALL_V*l;PTR2 

IJDY iC-2 

seek ibjy 

INY 

LUA IPTR2) , r 

BEQ TRANS 

EOR MLI_CODE 

TWE SEEK 

tmns iky 

TTA 
CLC 

ADC (PTR2) , Y 

BCC TRANS? 

INC PTR2* 1 
CLC 

THANS2 ADC 

STA PTR2 

LDA PTR2H 

ADC 40 

STA PTR3+1 



cnercne Ie code utilise 
code inconnu! 



translate le vecteur vers la 2e tabl 



LOOP 



LDY 40 

IDA {PTR2),Y 

BPL PARAMS 

JSR COUT 
INV 

BSE LOOP 
PHA 

»> DISPLAY, " 



affiche le libelle 



• Affich&gc des informations selon 1'appel 

' Table des types de paraatetres 

' octet = kOgfedcba 

• a - J — > type!: pathname en *l/*2 

• L< ■ 1 «> typaS: block nmnbar an 

c - 1 — > typc3: unit number en <l 

' d = 1 => type4: reference en fl 



- a - l 




type5z reference en *5 


- f - 1 


-~> 


types ; length en 


- g = I 


"> 


type7: position en +2/*3/+< 


' f'Q=l 


==> 


typefl: caractere newline en *3, 


TYPEl 


LSP 






PHA 






BCC 


TYPZ2 




>» 


GET, I 




STA 


PTR2 




I NY 






LDA 


(PTPl) , Y 




STA 


PTR3+1 




LDY 


to 




LDA 


(PTRZI , Y longueur du paLtmamu 




BEQ 


TYPE2 pretlxe nul 




STA 


TEMP 


TYPE1_L 


IKY 






T.flA 


CPTR?) . Y 




ORA 


tfBO 




JSR 


GOVT affiiJte le pathname 




utc 


TEMP 




3 WE 


TYPEl_L 


TYPE2 


PLA 






LSR 






PHA 






BCC 


TYFE3 




>» 


DISPLAY, "5 " 




JSR 


PRINT_1 affiche le numero de 




>» 


DISPLAY, " 


TYPE 3 


PLA 






LSR 






PHA 






BCC 


TYPE4 




»> 


DISPLAY, m S" 




»> 


GET, I 




ASL 






PHP 






LSR 






LSR 






LSR 






LSR 






LSR 






ORA 


S$BO 




JSR 


COOT affiche Le slot 






DISPLAY, ' 




>» 


DISPLAY, "D" 




IDA 


41 




PLP 






BCC 


TYPE3_L 




ASL 






ORA 


fSBQ 




JSR 


COOT aftlche ±e drive 


TYPE4 


PLA 






tj;r 






PHA 






BCC 


TYPES 




»> 


DISPLAY, - 




»> 


DISPLAY, 




LDY 


15 




JSR 


PSINT_3 affiche la reference 


TYPES 


PLA 






LSR 






PHA 






BCC 


TYPE6 




>» 


DISPLAY, '/" 




LDY 


n 




JSA 


FRINT_3 affiuhts la ^fcitnuv 


TYPES 


PLA 






BEQ 


THE_ENV 




PHA 






>» 


DISPLAY, * 




PLA 






LSR 






PHA 






BCC 


TYPE7 




BNE 


TYPES 




»> 


n I SPLAY, 






DISPLAY, 




JSR 


PAINT 1 afflaite la longueur.. 
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TYPE! 



>» GET, 6 

LDY 14 

CMP fPTRl),Y ...et compare avec la longueur effect 

BEQ TYPE? 

PWA 

>» DISPLAY, "-" 

>» DISPLAY, "> " 
GET, 7 

JSP PR1NT_L4 si une difference modulo $100, on X'mtt 
PLA 

jsp. print 14 



PLA 

L3R 

BCC THE_END 

»> DISPLAY, "B" 

»> DISPLAY, 

LDY 94 

JSfl PR1NT_2 
DBY 

JSR PF2NT_3 
CLC 

BCC THE END 



position I rolativa byte address) 



-jap 



TYPE8 PLA 

»> DISPLAY, "S- 

LDY §3 

JSR PR1NT_3 

»> DISPLAY, "C 

DEY 

JSP PR1NT_3 

»> DISPLAY, ') ' 

TttB_BND LDA ML2_RC 

pna 

BEQ RC 



RC 



code-rezour ... 

>» DISPLAY, • • 

»> DISPLAY, '(' 
PLA 
PHA 

JSR PRINT_L4 ...ainun ojj l'afficno,., 

>» DISPLAY, "J " 

JSR CROUT 
PLA 

BNE GOBACX ...et on t ermine 



' C'etalt un "open" f pour un fichier tuxia ? 

■ aiors lea "read" et "write" afficheront les donnees 



10 



IDA HLI_CODE 

CMP tfCS 

ONE C1IGW_ IO 
G£ I"/ 3 

TAY 

DO BASIC 

LDA FILETYPE type xexte ? 



. . . non 

obtleni le r dv ctiffitatnni 



- . . aet_f i 1 e_Info, au mains sous Basic. S 



EOF 4S04 

ELSE 

LDA tXSYSIO 
FIN 

STA TXT^FLAG, Y <=> fichier cexte 
CLC 





BCC 


GOBACX 


=jmp 


» Affichages 


des donnees 


si show, I, o 


WW_ TO 


CMP 


ISCA 


read ? 




BEQ 


SHOH_I02 






CMP 


fSCB 


write? 




BNE 


GO BACK 






LDY 


FLAG* 2 


show,o act if ? 




BSE 


GOBACK 






BEQ 


SHOM_0K 




SHOW 102 


LDY 


FLAG*1 


qrtpQV, f »rr if 7 




BNE 


CO BACK 




SHOH_QK 


>» 


GET, 1 


§ dv ttttxmvtm du 




TAY 








LDA 


TXT_FLAG, Y 


esz-ce un fichier 




BNE 


GOBACK 


non! 




»^ 


GET, 3 






STA 


I0_PTP+1 






DEY 








LDA 


tPTRl),Y 






STA 


IO PTR 


obtier.t 1 'adresse 





j> ^>.^> 


■ » / " 






STA 


PTR2 






INY 








LDA 


(PTR1) , Y 






STA 


PTR2+1 


stocke la lonffueur effecti vement iue 


IO_LOOP 


LDA 


PTRZ 






BNE 








LDA 


PTR2*l 






BEQ 


GOBACK 


jujgu'a J a fin — 




DEC 


PTR2+1 




Tn_lf>NG 


DFC 


PTR? 


...on decremente la lontjueur 




LDA 


SFFFF 


(adrosso goree dyn*mf q»?ont»nf:J 


IO_PTR 


- 


*-2 






AND 


#?7f 






CMP 


*$0D 






BEQ 


10_PRINT 


aauf les rezoux— chariots .. . 




CMP 


fS20 






BCC 


IO_TKC 


...nn Mfatfmi les codes de controle 


io^rnznT 


CRA 


iSBO 


force 2c bit 7 i i 




JSR 


govt 




- .- - 1- - 




So r*Z3t 


- : - ~: * allons CU&llllC JWJ vuioli* 




BSE 








TUP 


• w r - 






est. 


::_ixp 


=]mp 


• 1 

• Mw 




Ik pi*g= 


■ ■ ' ' ■■■■■ 
appelant 

l,r " 1 " 


• I. 

GC&AZX 


- 


===== • - 






»> 


tOVE, SV 


Sif.CSV restore ia sorcle video Basic. S 




LDA 


SV_CB 






STA 


ca 






CLI 








CLC 








LDA 


GU_P(M*l 


caleule 1 'adresse de suite du ptog 




ADC 


$4 






STA 


GO PGM+1 






LDA 


GO_PQ4-t2 






ADC 


§0~ 






STA 


CO_PCH*3 






»> 


L-^AJ -i. ..- 


restore les reglscres... 


GO PGM 


JKP 


$0000 


...et c'esfC flni! 



» ffcutino d' affichage 



PMHT_2 LDA (PTR1),Y 

JSR PJUNT_L4 
DEY 

PPINT_3 LDA fPTPl),Y 

PPINT L4 JHP PPBYTB 



■ Zone-s de donnees 

* ==aa»*ts=== 



aroue la fin de lai zone reJogeable 







*—l 






DS 


e 


Sndica tcur flchiora tcxCc 




DA 





ancSen vecreur de sortie 


MLI_RC 


DFB 





code— retour 


TEMP 


DFB 





compteur teraporaire 


SVjDH 


DFB 





position ftorizontale 




DO 


BASIC 




CUD 


ASC 


"WO" 






ASC 


'SHOH- 




PAFM 


ASC 


"CIQP" 






FIN 






FTJiC 




S, H. 6 


par cfefaut dosactlvos 


r cAiz. 






tabla des types d'appal 




HEX 


40 






DFB 


C40-' 






HEX 


41 






DFB 


C41-* 






HEY 


6fi 






DFB 


C6S-* 






HEX 


SO 






Ot'B 


CSO~' 






HEX 


81 






DFB 


C81-' 






HEX 


B2 






DFB 


CS5-» 
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HEX 


CO 




C81 


ASC 


'Write block" 


DFB 


CCO-' 






DFB 


tOOOOollQ 


HEX 


CI 




CB2 


ASC 


"Cet_tine" 


DFB 


CC1 * 






DFR 


tnooanaon 


HEX 


cz 




ceo 


ASC 


■Create' 


Ut'B 








DFB 


tOOOOOOOl 


HEX 


C3 




CC1 


ASC 


"Destroy" 


DFB 


CC3-' 






DFB 


toooooooi 


HEX 


C4 




CC2 


ASC 


"Ren as e' 


DPS 


CC4~' 






DFB 


tOOOQOOOl 


HEX 


cs 




CC3 


ASC 


• Se t_f i 1 e_in f o " 


DFB 


CC5-' 






DPD 


tOOOOOOOl 


HEX 


C6 




cc« 


ASC 


m Oet_Clle_lnCo m 


DFB 


CC6-' 






DFB 


tUUUUOOOl 


HEX 


C7 




CCS 


ASC 


"Online" 


nr« 


rr?7-» 






DFB 


tOOOOOl OQ 


HEX 


CB 




CC6 


ASC 


"Sot_prefix" 


DFB 


CC8-- 






DFB 


tOOOOOOOl 




c* 




(X7 


ASC 


~Gez_pze£lx " 


DFB 


CC9-' 






DFB 


toooooooi 


HEX 


CA 




CC8 


ASC 


"Open" 


DFB 


CCA—* 






DFB 


tOOOOlOOl 


HEX 


CB 




r.cq 


ASC 


"Newline" 


DPS 


CCB-* 






DFB 


tomoooo 


HEX 


CC 




CCA 


ASC 


"Piead" 


uta 


ctx-* 






DFB 


tOOl 1 OOOO 


HEX 


CD 




CC3 


ASC 


"Write" 


rrL 


CCD-' 






DFB 


toonoooo 


HEX 


CB 




ccc 


ASC 


"Cl ose " 


DFB 


CCE-* 






om 


tnnoioooo 


HEX 


cr 




CCD 


ASC 


'Fl UMh " 


DFB 


(ASF- ' 






DFB 


100010O00 


HEX 


DO 




CCL 


ASC 


'Xet_ma rk ' 


DFB 


CDO-' 






DFB 


toioloooo 


HEX 


Dl 




CCF 


ASC 


"Get_nark" 


nm 


cm-' 






DFB 


%Ol010000 


HEX 


03 




CDO 


ASC 


"Set_*nf 


DFB 


CD 2-' 






DFB 


10101 OOOO 


HEX 


D3 




CD1 


ASC 


"Get_eaf" 


DFB 


CD3-* 






DFB 


tU 101 OOOO 


HEX 


00 code dnconnu. 


dolt etre le dernier 


CD2 


ASC 


Sez_buf 


DFB 


COQ-* (doit etre < 


SFFI 




DFB 


toooioooo 








CD3 


ASC 


"Get_buf~ 


ASC 


w Alloc incerrypc " 






DFB 


toooioooo 


DFB 


toooioooo 




cCO 


ASC 


"Zfnidentifi cd" 


ASC 


"Deo 11 oc_t n C errupC " 






DFB 


£87 liuep 


DFB 


10001COOO 






DFB 


toouoovoo 


ASC 


"Quit" 










DFR 


tOOOOOOGO 




FIN 




* 


ASC 


"Rcad_block w 




LONG 




FIN-START* SI 00 


DFB 


to 0000X10 






LST 


ON 



Recapitulation SHOW 


2Q9Q- 
2098- 


00 
3D 


BE 
FB 


85 
20 


43 
A5 


CO 
74 


4C 
18 


2C 
69 


FE 
04 


2158- 
21bU- 


58 

53 


6C 
tSE 


06 
3D 


21 
54 


58 
BE 


A 9 
€D 


00 
55 


8D 
BE 


Apres avoir saisi 
moniteur, vous le 


sauvegarderez 


20AO- 
20A&- 
20BO- 


QD 
FO 
AD 


FC 
41 
FD 


20 
AD 
20 


86 
FC 
48 


3D 
20 

43 


CE 
3D 
4A 


FC 
FD 
4A 


20 
20 
AA 


21 68- 
21 70- 
21 18- 


8C 
BE 

60 


52 
AD 
AD 


BE 
BB 
0? 


AD 
21 
RF 


8A 
3D 
C9 


21 
51 
BF 


80 
BE 

BO 


50 
18 
ID 


par : 

BSAVE SHOW ,A$ '2000, L$600 






20B8- 
20CO- 


68 
58 


29 
BF 


07 
DO 


A3 
El 


B9 
A5 


F3 
3D 


20 
DO 


3D 
09 


2180- 
2188- 


AD 
24 


92 

C9 


24 

12 


6D 
DO 


93 

29 


24 
78 


6D 

AD 


94 

20 


2000- 


AD 


00 


BF 


C9 


4C 


FO 


05 


A3 


20C8- 


B9 


F3 


20 


ID 


56 


BF 


9D 


58 


2190- 


22 


3D 


01 


DF 


AD 


21 


22 


8D 


2008- 


R7 


AC 


ED 


FD 


AD 


4D 


BE 


FO 


20DO- 


BF 


AD 


FC 


20 


38 


CE 


FD 


20 


2198- 


02 


BF 


58 


18 


60 


AD 


01 


BF 


2010- 


05 


A3 


15 


4C 


OS 


BE 


AD 


04 


20D8 


ED 


FD 


20 


CD 


FD 


20 


DO 


DO 


21A0 


8D 


20 


22 


AD 


02 


BF 


8D 


21 


2018- 


21 


69 


00 


20 


98 


20 


90 


05 


20EO- 


A5 


3D 


DO 


07 


18 


AE 


FD 


20 


21A8- 


22 


78 


AD 


BD 


21 


BD 


01 


BF 


2020- 


A9 


OE 


4C 


09 


DE 


CD 


02 


21 


20E8- 


E8 


8A 


60 


A9 


00 


85 


3D 


FO 


21B0- 


AD 


BE 


21 


8D 


02 


BF 


18 


58 


2028- 


90 


F6 


AE 


08 


BE 


8D 


08 


BE 


20F0- 


B9 


38 


60 


80 


40 


20 


10 


08 


21B8- 


60 


AD 


79 


21 


4C 


BF 


21 


08 


2030 


8E 


07 


21 


AS 


07 


BE 


BE 


06 


20F8- 


04 


02 


01 


00 


00 


00 


AD 


99 


21C0- 


48 


8A 


48 


98 


48 


BA 


78 


BD 


2Q3&~ 


21 


AO 


00 


& 


07 


BE 


48 


ES 


2100- 


D6 


A9 


26 


A3 


04 


AD 


58 


FF 


21Z8- 


05 


01 


3D 


6B 


24 


85 


3C 


BD 


2O40- 


21 


35 


3C 


6ft 


?fl 


F.9 


04 


85 


21 08- 


78 


A9 


00 


85 


3C 


A9 


02 


85 


2100- 


06 


01 


8D 


6C 


24 


85 


3D 


AO 


2048- 


74 


A9 


21 


85 


49 


84 


•48 


AO 


2110- 


3D 


AO 


FF 


18 


C8 


Bl 


3C 


BO 


21D8- 


01 


Bl 


3C 


BD 


22 


22 


CB 


Bl 


2050- 


00 


Bl 


48 


FO 


27 


20 


BE 


F8 


2118- 


OB 


D9 


88 


24 


DO 


06 


CO 


05 


21E0- 


3C 


3D 


23 


22 


C8 


Bl 


3C 


8D 


2058- 


A4 


2F 


CO 


02 


DO 


OF 


Dl 


48 


2120- 


FO 


OE 


DO 


FO 


59 


8A 


24 


DO 


21E8- 


24 


22 


50 


AD 


22 


22 


49 


CA 


2060- 


C9 


21 


90 


09 


CD 


02 


21 


BO 


2128- 


2E 


CO 


03 


FO 


03 


38 


BO 


E4 


21F0- 


DO 


IF 


AD 


B8 


BE 


C9 


FF 


DO 


2068 


04 


65 


3C 


91 


48 


A5 


48 


38 


2130- 


98 


49 


03 


85 


3F 


C8 


A2 


03 


21F0- 


10 


AD 


06 


21 


8D 


06 


BE 


AD 


2070- 


65 


2F 


85 


48 A5 


49 


69 


00 


2138- 


Bl 


3C 


C9 


AC 


FO 


F7 


C9 


AO 


2200- 


07 


21 


8D 


07 


BE 


20 


8D 


21 


2078- 


85 


49 


DO 


D3 


AO 


00 


A9 


21 


2140- 


FO 


F3 


C9 


8D 


FO 


16 


DD 


8E 


2208- 


68 


A8 


68 


AA 


68 


28 


4C 


00 


2080- 


84 


3C 


85 


3D 


18 


6D 


04 


21 


2148- 


24 


DO 


07 


A5 


3F 


9U 


92 


24 


2210- 


BF 


68 


A8 


68 


AA 


68 


28 


8D 


2088- 


M 


4? 


88 


84 


3E 


85 


3F 


AD 


2150- 


10 


F.3 


CA 


10 


Fl 


30 


00 


38 


2218- 


86 


24 


68 


68 


AD 


86 


24 


20 
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7270- 


00 


00 


EA 


EA 


EA 


8D 


85 


24 


2228- 


08 


48 


6A 


48 


98 


48 


A5 


36 


2230- 


8D 


83 


24 


A5 


37 


8D 


84 


24 


2230 


A5 


24 


8D 


87 


24 


78 


AD 


95 


2240- 


24 


FO 


DC 


AD 


30 


BE 


85 


36 


2248- 


AD 


31 


BE 


85 


37 


DO 


08 


85 


2250- 


36 


85 


24 


AS 


CI 


85 


37 AD 


7758- 


23 


22 


85 


3C 


AD 


24 


22 


85 


2260- 


3D 


AD 


92 


24 


FO 


03 


4C 


CE 


2268- 


23 


AD 


22 


22 


20 


77 


24 


A9 


22 70 


DA 


20 


ED 


FD 


AD 


96 


24 


AD 


2278- 


75 


22 


85 


3E 


AD 


76 


22 


85 


2280- 


3F 


AO 


FE 


C8 


C8 


Bl 


3E 


FO 


2288- 


05 


4D 


22 


22 


DO 


F5 


C8 


98 


2290- 


18 


71 


3E 


90 


03 


E6 


3F 


18 


2298- 


65 


3E 


85 


3E 


A5 


3F 


69 


00 


22A0- 


85 


3F 


AO 


00 


Bl 


3E 


10 


06 


22A8- 


20 


ED 


FD 


C8 


DO 


F6 


48 


AS 


22m- 


AO 


20 


ED 


FD 


68 


4A 


48 


90 


22B8- 


21 


AO 


01 


Bl 


3C 


85 


3E 


CB 


22C0- 


Bl 


3C 


85 


3t' 


AO 


00 


Bl 


3E 


22C8- 


FO 


10 


m 


86 


74 


C8 


HI 


3E 


22D0- 


09 


80 


20 


ED 


FD 


CE 


86 


24 


72D8- 


DO 


F3 


68 


4A 


48 


90 


0D A9 


22E0- 


A4 


20 


ED 


FD 


20 


6D 


24 


A9 


22E8- 


AC 


20 


ED 


FD 


68 


4A 


48 


90 


22F0 


2A 


A9 


D3 


20 


ED 


FD 


AO 


01 


22F8- 


Bl 


3C 


OA 


08 


4A 


4A 


4A 


4A 


2300- 


4A 


09 


30 


20 


ED 


FD 


A 9 


AC 


2308- 


20 


ED 


FD 


A3 


C4 


20 


ED 


FD 


2310- 


A9 


01 


28 


90 


01 


OA 


09 BO 


2318- 


20 


ED 


FD 


68 


4A 


48 


90 


OF 


2320- 


A9 


AC 


20 


ED 


FD 


A9 


A3 


20 


2328 


ED 


FD 


AO 


05 


20 


75 


24 


68 


2330- 


4A 


48 


90 


OA 


A9 


A3 


2U 


ED 


2338- 


FD 


AO 


01 


20 


75 


24 


68 


FO 


2340- 


61) 


48 


A9 


AC 


20 


ED 


FD 


68 


2348- 


4A 


48 


90 


7F 


DO 


47 


A3 


cc 


2350- 


20 


ED 


FD 


A9 


A4 


20 


ED 


FD 


7358- 


20 


6D 


24 


AO 


06 


Bl 


3C AO 


2360- 


04 


Dl 


3C 


FO 


16 


48 


A9 


AD 


2368- 


20 


ED 


FD 


A9 


BE 


20 


ED 


FD 



2370- 


A0 


07 


Bl 


3C 


20 


77 


24 


68 


23 73- 


20 


77 


24 


63 


4A 


90 


2F 


A9 


2380- 


C2 


20 


ED 


FD 


A3 


A4 


20 


ED 


2388- 


FD 


AO 


04 


20 


6F 


24 


88 


20 


23m- 


75 


24 


18 


90 


19 


68 


A9 


A4 


73 98- 


20 


F.Z 


FD 


AO 


03 


20 


75 


24 


23A0- 


A9 


A8 


20 


ED 


FD 


88 


20 


75 


23A8- 


24 


A9 


A9 


20 


ED 


FD 


AD 


85 


23B0- 


24 


46 


FO 


14 


A9 


AO 


20 


ED 


23B8- 


FD 


A9 


A8 


20 


ED 


FD 


68 


48 


23C0- 


20 


77 


24 


A9 


A9 


20 


ED 


FD 


23CB- 


20 


HE 


tv 


68 


DO 


75 


AD 


22 


23D0- 


22 


Cfl 


rn 


no 


10 


AO 


05 


Bl 


23DB- 


3C 


A8 


AD 


B8 


BE 


49 


04 


99 


71F.0- 


7A 


24 


18 


90 


5E 


CS 


CA 


FO 


23E8- 


OB 


C9 


CB 


DO 


56 


AC 


94 


24 


23FQ- 


DO 


52 


FO 


05 


AC 


93 


24 


DO 


23F8- 


4A 


AO 


01 


Bl 


3C 


A8 


B9 


7A 


2400- 


24 


DO 


40 


AO 


03 


Bl 


3C 


8D 


2403- 


29 


24 


88 


Bl 


3C 


3D 


28 


24 


2410- 


AO 


06 


Bl 


3C 


85 


3E 


C8 


Bl 


2418- 


3C 


85 


IF 


A5 


3E 


DO 


06 


A5 


2420- 


3F 


FO 


20 


C6 


3F 


C6 


3E 


AD 


7478- 


FF 


FT 


23 


7F 


C9 


QD 


FO 


04 


2430- 


C9 


20 


90 


05 


09 


80 


20 


ED 


2438- 


FD 


EE 


28 


24 


DO 


DD 


EE 


29 


2440- 


24 


DO 


D8 


AD 


83 


24 


85 


36 


2448- 


AD 


84 


24 


85 


37 


AD 


87 


24 


2450- 


85 


29 


«5fl 


18 


An 


6n 


74 


69 


2458- 


04 


8D 


6B 


24 


AD 


6C 


24 


69 


2460- 


00 


8D 


6C 


24 


68 


A8 


68 


AA 


2468- 


66 


23 


4C 


00 


00 


AO 


05 


Dl 


2470- 


3C 


20 


77 


24 


88 


Bl 


3C 


4C 


2478- 


DA 


FD 


00 


FD 


00 


A9 


AD 


3D 


2480- 


BF 


9D 


A9 


UU 


vu 


UO 


VU 


00 


2488- 


CE 


CF 


03 


CB 


CF 


07 


C3 


C9 


2490- 


CF 


DO 


06 


06 


06 


06 


40 


35 


2438- 


41 


43 


65 


53 


60 


56 


81 


5F 


24A0- 


B2 


69 


CO 


70 


Cl 


75 


C2 


7B 


24A3- 


C3 


80 


C4 


8C 


C5 


98 


C6 


9D 


2430- 


C7 


AG 


C8 


AF 


CD 


32 


CA 


33 


24B8- 


CB 


BB 


CC 


BF 


CD 


C3 


CE 


C7 



24C0- 


CF 


CE 


DO 


D5 


Dl 


DB 


D2 


El 


24C8 


D3 


E7 


00 


ED 


Cl 


EC 


EC 


EF 


24D0- 


E3 


DF 


E9 


EE 


F4 


E5 


t'2 


F2 


24D8- 


F5 


FO 


F4 


10 


C4 


E5 


El 


F.C 


24ZQ- 


EC 


EF E3 


DF 


£3 


EE 


F4 


E5 


24E8- 


F2 


F2 


F5 


FO 


F4 


10 


Dl 


F5 


24F0- 


E9 


F4 


00 


D2 


E5 


El 


E4 


DF 


24F8- 


E2 


EC EF E3 


EB 


06 


D7 


F2 


25 00- 


E9 


F4 


E5 


DF 


E2 


EC 


EF 


E3 


2508- 


EB 


06 


C7 


E5 


F4 


DF 


F4 


E9 


2510- 


ED 


E5 


00 


C3 


F2 


E5 


El 


F4 


2518- 


E5 


01 


C<2 


E5 


F3 


F4 


F2 


EF 


7520- 


F9 


01 


D2 E5 


EE 


El 


ED 


E5 


2528- 


01 


D3 


E5 


F4 


DF EC 


E9 


EC 


2530- 


£5 


DF 


E9 


EE 


E6 EF 


01 


C7 


2538- 


E5 


F4 


DF 


E6 


E9 


EC 


E5 


DF 


2540- 


E9 


EE 


E6 EF 


01 


CF 


EE 


EC 


2549- 


E9 


EE 


E5 


04 


D3 


E5 


F4 


nr 


2550- 


FO 


F2 


E5 


E6 


E9 F8 


01 


C7 


2558- 


E5 


F4 


DF 


FO 


F2 


E5 


E6 E9 


25 60- 


F8 


01 


CF FO 


E5 


EE 


09 


CE 


25 68- 


E5 


F7 


EC 


E9 


EE E5 


70 


D2 


2570 


E5 


El 


E4 


30 


D7 


F2 


E9 


F4 


25 78- 


E5 


30 


C3 


EC 


EF F3 


E5 


10 


2580- 


C6 


EC 


F5 


F3 


E8 


70 


D3 


E5 


2588- 


F4 


DF 


ED 


El 


F2 EB 


50 


C7 


75 90- 


E5 


F4 


DF 


ED 


El 


F2 


EB 


50 


2598- 


D3 


E5 


F4 


DF 


E5 


EF 


E6 


50 


25A0- 


C7 


E5 


F4 


DF 


E5 


EF 


E6 


50 


25A8- 


D3 


E5 


F4 


DF 


E2 


F5 


E6 


10 


25B0- 


C7 


E5 


F4 


DF 


E2 


F5 


Eb 


10 


25B8- 


D5 


EE 


E9 


E4 


E5 


EE 


F4 


E9 


25 CO- 


E6 


E9 


E5 


E4 


87 


00 


DO 


39 


25C8- 


8D 


in 


CO 


FO 


34 


20 


8A 


9D 


25DO- 


20 


6C 


9C 


BO 


25 


20 


62 


9F 


25D8- 


90 


04 


CA 


BD 


00 


02 


09 


80 


25E0- 


90 


00 


02 


OA 


DO 


F4 


20 


00 


25E8- 


9A 


20 D5 


3A 


2C 


53 


BE 


10 


25F0- 


DC 


60 


20 


8A 


9D 


20 


48 


9C 


2SFB- 


90 


F7 


20 


45 


B2 


C9 


05 


DO 



Le Pacha 



Listez vos programmes Basic en avant et en arriere. 
Modifies, inserez, effacez des caracteres en plein ecran sans relire les lignes. 
Recherchez toute chaine de caracteres. 
Choisissez vous-meme les codes dc controle d'EPE. 
Modiflez EPE ; le fichier source est sur la disquette. 

200,00 F TTC franco (bon de commande page 74). 
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Pom's n° 28 



InterPom's 

Telechargement via MlMTEL 

Christian Piard 



Dcpuis la parution du numero 27 
de Pom's, le cSble de liaison 
Apple/Minitel fait partie de votre 
equipement. Vous ne I'avez pas 
trouve chez les revendeurs ? 
Vous nc l'avcz pas realise 
vous-mSme ? Pom's vous le 
propose aujourd'hui par 
correspondance. 

Cette liaison trouve ici une 
nouvelle application, la 
transmission (emission ct 
reception) de fichiers par 
telephone via Mioitel entre Apple, 
meme si votre correspondant ne 
dispose 4 que' dun Macintosh. 

Ce programme vous pcrmettra 
d'echanger plus facilement et 
rapideuient des fichiers et 
programmes, et par exemple de 
travailler & domicile puis de 
telecharger le Macintosh de votre 

bureau. . . 

Cette presentation ne concerne 
que la version Apple //, la version 
Macintosh se trouvant aux pages 
41 & 53. 

Tous fichiers, 
Toutes tailles, 
Tous supports. 

Bien que plus delicate $l mettre en 
ocuvre, la transmission dc fichiers 
a ete preferee A la transmission de 
disquelles completes pour une 
question de rapidite et pour ne 
pas etre tributaire d'un type 
particulier de support. 

Cc programme, congu sous 
ProDOS, profite de la souplesse 
de ce systeme d'exploitation : 
tous les types de fichiers sont 
accessibles en suivant une unique 
procedure ce qui simplifie la 
programmation. 

Cote utilisateur, cela signifie que 
tous les fichiers sont transferases 



par telephone ; fichiers Basic, 
TEXT, binaires, variables, 
AppleWorks tant texte que base 
de donnees ou tableur. II peut 
egalement s'agir de tout type 
utilisateur (de $F1 a $F8) et de 
fichiers systSme. ProDOS. 
lui-memc un fichier, est compris 
dans cette liste non limitative. 

Deux exceptions toutefois : 

• le type BAD est autorise mais, 
regroupant par definition des 
blocs illisibles, Tissue d'une 
tentative de transmission sera 
l'cchec. 

• Le type DIR (directory) est 
interdit car creer des dossiers et 
sous-dossiers sur le disque du 
recepteur ne presenterait que 
des inconv6nients. 

Autre avantage de ProDOS, 
1'indcpendance vis-&-vis du 
peripherique : le fichier a 
transmettre sera indifferemment 
sur une disquette 5,25 pouces, 
une 3,5\ un disque dur et 
pourquoi pas le disque virtuel 
/RAM? 

La faille n'est limitee que par la 
durec (et le cout) dc la 
communication : le fichier est 
charge par fractions en memuire. 
II faut compter transmettre les 
donnees £ raison de 4 kilo-octets 
par minute. Lc programme Basic 
le plus volumineux ne demandera 
guere plus de 5 minutes. 

Si le fichier a transmettre n'est 
pas au format ProDOS, il vous 
suffira de le convertir a l'aide de 
l'utilitaire 4 CONVERT* ou, pour 
les possesseurs de //c, a l'aide 
d"Utilitaires Syst£me\ 

Le protocole 

L'ordinateur emetteur transmet un 
bloc de donnees transportant 512 
octets codes, un numero d'ordre, 
un octet de controle de ce 



numero, unc somme de controle. 
L'ordinateur recepteur controle la 
validite du numero d'ordre, le 
numero lui-meme, la somme de 
contr61e. Si tout va bien, il 
enregistre les donnees et envoie 
un acquiescement h remetteur qui 
va poursuivre. Dans le cas 
contraire, il demandera la 
reemission des donnees ou, en 
cas d'incoherence dans la 
succession des blocs, il 
demandera 1'annulation de la 
transmission. D'autres controles 
sont effectues pour assurer une 
excellente fiabilite k l'ensemble : 
trop de temps entre deux 
caractferes ? trop de temps entre 
deux blocs ? 

Le premier bloc de donnees 
transmit comporte le type 
d'ordinateur emetteur, le nom du 
fichier, sa dimension, son type et 
les parametres auxiliaires. Le 
recepteur saisit ainsi les elements 
necessaires a la creation d'un 
fichier identique et v6rifiera que le 
support dispose d'un nombre 
suffisant de blocs libres. 

Le codage 

Lc modem du Minitel travaillant 
sur 7 bits et la gestion d'ecran se 
reservant certains codes ASCII, il 
a ete necessaire de coder les 
donnees. La methude retenue ici 
consiste a forcer a 1 le bit 6 de 
chaque octet afin de n'envoyer 
que des octets superieurs a 63, 
les codes de controle du Minitel 
se trouvant au-dessous de cette 
valeur. 

II faut done 4 octets composes de 
6 bits utiles seulement pour 
representer 3 octets. 683 octets 
seront envoyes par Minitel pour 
vehiculer les 512 octets de chaque 
blocs ProDOS. Ce type de 
codage, qui ne prend qu'une 
fraction de seconde, est plus 
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adapt6 ^ la transmission 
telephonique (gain de temps) que 
la simple scission en deux octets, 
mcthodc utiliscc dans les 
transmissions locales. 

Le~ schema page 31 montre le 
piincipe de codage. 

Mode d'emploi 

Si vous n'avez pas la disquette 
Pom's, deux solutions : saisirle 
source avec l'assembleur 
ProCODE, assembler, ou bien 
saisir 1'objet en mode raoniteur, 
et le sauvegarder sur une 
disquette ProDOS. 
Si vous avez la disquette, 
transferer le fichier 'Miniter sur 
une disquette ProDOS a l'aide de 
'Convert' ou 'Utilitaires 
Syst£me\ 

Votre disquette ProDOS devra 
comporter les fichiers : ProDOS, 
Minitel et Basic. System- Ce 
dernier est indispensable pour 
que le programme puisse afficher 
le catalogue d'une disquette. 
II suffit alors de faire : 

Pour un demarrage direct sur ce 
programme, il faut le renommer 

STARTUP. 

Une transmission dc fichier peut 
se presenter ainsi : 

• Communication telephonique 
entre les interesses ; 

• Misc sous tension des Minitcls 
(sans les connecter) ; 

• Lancemcnt des programmes, 
fimetteur et recepteur devront 
demander remission et la 
reception dans la meme 
minute ; 

• Les ordinateurs connectent 
eux-memes les Minitels. 
Les programmes deconnectant 
sans preavis le Minitel, il est 
preferable de ne pas raccrocher 
le combine pendant la 
transmission. Differents 
messages vous informent du 
bon deroulement de la 
procedure. 

Le programme 

Le menu vous propose : 

• 1'envoi d'un fichier, indiquer 



alors le nom du fichier. Le 
prefixe par defaut sera 
automatiquement ajoute sauf si 
le "chemin d'acces" est 
complet, e'est-a-dire commen- 
^ant par un "/". 

• la reception d'un fichier, 
reception qui se fera en suivant 
le "chemin" indique par le 
prefixe, 

• OnLine qui affiche tous les 
volumes en ligne, 

• la modification du prefixe 
courant, prefixe qui peut viser 
un dossier e'est-ii-dire etre du 

type /DISK/CLIENTS/DEVTS, 

• le catalogue. 

L'ordinateur recepteur consrituera 
le ficher sur le disque sous le 
nom d'origine si 1 emetteur est un 
Apple //. en suivant le chemin du 
prefixe, parexemple : 

Lemetteur envoie 

/FTC/DOS 1 /CALCUL 

Le prefixe chez le recepteur est 

/disque. Dim/ 
Le fichier cree sera accessible par 

/DISQUE. DUR/CALCUL 

Au cas oii un fichier calcul 
existerait dejS sur ie volume 
recepteur, le programme essaiera 
de le creer en incrementant le 
dernier caractere : calcum. S'il 
existc cgalament, il le nommera 
calcun etc. Apr&s caicuz, il 
tentera calcuo, calcul. . Au 
cas, peu probable, oii vous 
transfSreriez 36 fois le meme 
fichier, le programme nc pourra 
pas le creer. 

Si l'emetteur est un Macintosh, 
en raison des nombreux 
caractferes exotiques (¥ A V <~ 3 
J fl _ " t T) autorises dans les noms 
de fichiers, lc programme 
donnera le nom fichier. mac. a, 
puis FICHIER . MAC.B. . . 
I. a routine de saisie des noms de 
fichiers et de prefixe en controle 
la syntaxe : minuscules converties 
en majuscules, pas de chiffre ni 
de point en premier caractere ou 

apres un 7*\ succession de deux 
'V" interdite etc. 

Le Minitel 



indispensable que le Minitel soit 
"retournable" (lis le sont 

pratiquement tous aujourd'hui). 
Cote recepteur, e'est sans 
importance. Le Minitel echange 
ses donnees sur le reseau 
telephonique de la manure 
suivante : il 6met k 75 bauds et 
re$oit a 1200. Pour que la 
transmission soit rapide, il 
conyicnt que le Minitel emetteur 
soit capable se "retourner", 
e'est-a-dire emettre & 1200 bauds. 
Le recepteur emettra ses 
acquirements k 75 bauds. 

La liaison serie 

Vous avez un Apple He ou IlGS 
dote d'un carte Apple 
SuperSerie : installez la carte en 
port 2, et configurez la ainsi : 



sw1 



sw2 



on 
off 



on 
off 



modem 



terminal 



configuration 

de la carte 
SSC Apple 



Vous avez un Apple l/c, le 
programme se charge de la 
configuration du port serie 
integre. 

Dans tous les cas, il vous faut un 
cable de liaison qui fera interface 
entrc l'ordinateur et le Minitel. Lc 
schema est presente ci-contre. Si 
vous doutez de vos capacites 
d'electroniciens, ce clble est 
disponible & la revue, par 
correspondence. N'omettez pas 
de debrancher les appareils avant 
d'effectuer le raccordemcnL 

Correspondant Mac 

Si voire correspondant possede 
un Macintosh, vous pourrez lui 

envoyer n'importe quel type de 

fichier, mais lui ne pourra vous 
transmettre que des fichiers de 
type TEXT (MacWritc, 
Multiplan, Excel... en format 
TEXT). Certains caractferes issus 
du Mac sont recodees a la 
reception pour Stre plus 
presentables sur l'Apple // 
(caracteres • — 1 ' « » 



Cote emetteur, il est M as CE oe e 6 i i' par excmplc). 
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Source INTERPOMS. 1 

Assembleur ProCODE 



PUT INTERPOMS. 2 
f UT 1 NTLXtQMS . 3 



Source INTERPOMS.2 



' INTERPOMS 

' <£> tern's t CP 



LST OFF 

DSK INTERPOMS 

ORG $2000 



C*rtt iSL 



20 , 



2 



2N2222 




2N2222 




. 1 



( Applf //c Miiiiel 




I 




SOU 

cor 


_ 
m 


2 
4 
6 




i 

ioko 

2 UA- 


I £ 

Prists 

-ft?)»eM2 vwscoti 
| soudurts 


HACK 




21 








CAN 

COMPTNC 




25 
S18 








— 


Compesants n«f ssvrts : 2 transistors 2N2222 . 2 resistafwe s de 1 KQ . 1 de 1 8 KQ 


COMFTC 


- 


S1A 








F1LEBOF 


m 


S1000 


HOME 


$FC58 




BUFNC 




SI 400 


TEXT 


SFB39 




&UFC 




snort 


BASIC m 


$300 




DEVCNT 


— 


SDF31 


CLRSOP 


$FC-t2 




HU 




ststvo 


LINPTR 


SEDZ4 




CREATE 




SCO 


LASTDEV = 


SBF30 




OPEN 




sea 








READ 




SCA 


DEB 00 LDX 


9$FF 


r * init ialiae la pile fucile 


WRITE 




4GB 


TXS 




; pour reparcir apres K&SET) 


CLOSE 




sec 


IDA 


SBFOO 


; Est-on sous ProDOS ? 


GETFINFO 




SC4 


CMP 


9S4C 




ONLINE 




$es 


BEQ 


DEVO 


/ oui, tvb 


STPREFIX 




SC6 


LDh 


9 sir 




GTPHEfiX 




SC7 


JSR 


ERREUR 




GETTlttE 




$B2 


JMP 


BASIC 


; Won, fin. 


GFTEOF 




SD1 








CETEOF 




SDO 


DEVO LDA 


3FB33 


,* EnL-un tfur un //c ? 


KOO 




scooo 


CMP 


96 




STROBE 




SCQIO 


BNE 


DEVOE 




STATUS 




56 


LDA 


SFRCO 




DATA 




$8 


ONE 


DEVQEQ 




HP 




SC03O 


JSR 


OEUXC 


; oui, on regie 1 "Interface 


COOT 




SFUEL) 








GBASL 




$26 


LDA 


12 




HRASCALC 




SF847 


JSR 


SFE95 




VTAD 




SFC22 


LDA 


97 




CV 




$25 


JSR 


COOT 




CROUT 




SDAFB 


JSR 


SFE93 




WNDTOP 




S22 


JMP 


DEVOE 




WNDBTM 




$23 








CH 




924 


DEVQEQ LDA 


§7 




STROUT 




SDB3A 









Recapitulation 
INTERPOMS' 

Aprcs avoir aaiai cc code sous 
moniteur, vous le sauvegaxderez 
par : 

BSAVE INTERPOMS, AS2VUU, LSI 5 bb 
sur une disquette ProDOS. 

2000- A2 FF 9A AD 00 BF C9 4C 
2008- FO 08 A9 7F 20 D2 31 4C 
2010- DO 03 AD 03 FD C9 06 DO 
2018- ID AD CO FB DO 13 20 C4 



7070- 


34 


A9 


0? 


20 


95 


FE 


A9 


07 


2028- 


20 


ED 


FD 


20 


93 


FE 


4C 


36 


2030- 


20 


A9 


07 


20 


00 


C2 


A9 


C3 


2038- 


8D 


F2 


03 


A9 


32 


8D 


F3 


03 


2040- 


49 


A5 


8D 


F4 


03 


AD 


30 


BF 


2018- 


3D 


83 


20 


20 


00 


BF 


C5 


8A 


2050- 


20 


BO 


4A 


AD 


6E 


35 


29 


OF 


2058- 


BD 


6E 


35 


AS 


B9 


£E 


35 


C8 


2060- 


99 


6E 


35 


88 


88 


CO 


00 


DO 


2068- 


F3 


A9 


AF 


sn 


6F 


35 


F.F. 


6K 


2070- 


35 


20 


00 


BF 


C€ 


BE 


20 


A9 


2078- 


CO 


85 


07 


85 


09 


A9 


A8 


85 


2080- 


08 


A3 


AS 


85 


06 


4C 


3D 


20 


2088- 


00 


00 


02 


00 


6E 


35 


01 


6E 



?090- 


7.5 


03 


72 


08 


26 


77 


2F 


80 


2098- 


2D 


B9 


2C 


BE 


2B 


A9 


15 


20 


20AO- 


ED 


FD 


20 


39 


FB 


20 


58 


FC 


20A8 


20 


72 


2D 


AD 


01 


20 


30 


21 


20BO- 


A9 


16 


20 


30 


21 


A2 


00 


BD 


20B8- 


CE 


21 


FO 


06 


20 


ED 


FD 


E8 


20C0- 


DO 


F5 


20 


EA 


2F 


A9 


03 


85 


20C8- 


22 


AQ 


16 


85 


23 


AO 


OA 


B9 


2OD0- 


F8 


21 


99 


9D 


04 


88 


10 


F7 


20DR- 


20 


FD 


75 


A9 


04 


85 


95 


70 


20EO- 


22 


FC 


20 


A7 


31 


AO 


00 


B9 


20E8- 


A3 


21 


FO 


07 


20 


ED 


FD 


C8 


20FO- 


AC 


E7 


20 


A9 


w 


80 


D7 


2C 


20F8- 


A9 


13 


20 


47 


re 


A9 


16 


65 
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DEVOE 



DEVI 



LD 



* MENU 



JSR 


$£200 


LDA 


t< RESET 


STA 


S3F2 


LDA 


i>RESET 


STA 


3 3F3 


BOR 


0SA5 


STA 


S3F4 


LDA 


LA5TDEV 


STA 


LU 


JSR 


ML I 


DFB 


ONLINE 


DA 


PARLPO 


BCS 


MENU 


LDA 


PATHNAME 


AND 


M ft M/ln n 1 t i * 

t*O0OO1212 


STA 


PATHNAME 


TAY 




LDA 


PATHNAME, Y 


INY 




STA 


PATHNAME, Y 


DEY 




DEY 




CPY 


to 


BNE 


DEVI 


LDA 


t "/" 


STA 


PATHNAME* 1 


INC 


PATHNAME 


JSR 


MI. T 


DPD 


STrREFIX 


DA 


tAHLDl 


LDA 




STA 


STATUS*! 


STA 


DATA'l 


LDA 


4 SAB 


STA 


DATA 


LDA 


tSA9 


STA 


STATUS 


JMP 


MENU 


DS 


2 


DFB 


2 


DS 


1 


DA 


PATHNAME 


ora 


1 


DA 


PATHNAME 



; Si RESET, on recotrjner.ee 



ADRCHOJX DA 
DA 
DA 

DA 
DA 
DA 



JJecupfire dernier lecCeur 

utilise pour metzre son 
prefixe en pz&flxe par 
cte fa uc 



r£cupe)re 2e r.c-r. 



MFN'JZ 



i nw»r pr&ftxe par 
; defeut 2c r.ora zrouvc 



; interface en slot 2 



choix 



choixo 



CH01X1 



; On commence 



CH01X2 



CH0IX3 



ENVFICH 
PSCFICH 
MDDPREr 

ONL 

CATAL 

QUITTER 



: Adresse des differences 

/ op £ i on s 



CHOIX* 



CHOIXS 



LDA 


421 


* 


desaczive i 'eventuel ic 


rco 
J Jn 


L.UUI 


* 


CdLLs ou coionnes 


Jjfl 


1 LAI 






JSR 








JSR 




I 


— i t " - ■ - ( Bn Ou 


LDA 


01 


f 


Prepare ecran 


JSR 








LDA 


§23 






JSR 


LI ONE 






LDX 


#0 






LDA 


MESTI TRE, X 






BEQ 


MENU1 






JSR 


COUT 






it 1 / A 








BNE 


MbNUU 






ten 


Li 1 PKht 




lit ez affiche prefixe 


LDA 


03 


f 


Jiraice ecran 


STA 


NNDTQP 






LDA 


§22 






STA 


HMEKBBI 






LDY 


010 






LDA 


POMS t Y 






Sj'A 








Z Z ; 








3PT. 


P 






JSR 


EFFDATE 






LDA 


04 


i 


VTAB 


STA 


CV 






JSR 


VTAB 






JSR 


RECOIT 


i 


du cas oti. . . 


LDY 


§0 






LDA 


MESMENU, Y 


1 


affiche Jes menus 


BEQ 


CHOIXI 






JSR 


COUT 






INY 








JMP 


CHOIXO 






LDA 


01 


S 


attend 1 seul carac 


STA 


LONC 






LDA 


019 




en llgne 19 


JSR 


GBASCALC 






LDA 


All 

022 




colonne 22 


ADC 


GBASL 






STA 


GBASL 






BCC 


CH0IX2 






INC 


GBASL* 1 






JSR 


INPUT 






LDY 


05 






LDA 


Buy r in 






CMP 


MESCHOIX, Y 


i 


est-ce un catrac aucorise 


BEO 


CH0IX4 




oui 


DEY 








BPL 


CH0IX3 






JSR 


BIP 


' 


non 


BCS 


CHOIXI 






LDA 


f<ADRCH01X 


i 


- 

Ijiitiaiise aaut indirccc 


STA 


CHOIXIND+1 






TYA 




! 


Y m choix - 1 


RFO 


CHOTXJNn 




nn i nrzrAmf>r\tf> In save indirect 


INC 


CHOIX 2ND i 1 




cn fin) du choix 



2100- 


26 


85 


26 


90 


02 


26 


27 


20 


2108- 


C7 


2B 


AO 


05 


AD 


BE 


2C 


D9 


2110- 


3D 


21 


FO 


08 


88 


10 


F8 


20 


21 18- 


82 


32 


BO 


D7 


A9 


91 


8D 


2E 


2120- 


21 


98 


FO 


09 


EE 


2E 


21 


EE 


2126- 


2E 


21 


86 


DO 


F7 


6C 


91 


20 


2130- 


20 


41 


F8 


AO 


27 


A9 


DF 


91 


21 38- 


26 


88 


10 


FB 


60 


C5 


D2 


CD 


21 40- 


CF 


C3 


Dl 


8D 


8D 


AO 


AO 


BC 


2148- 


C5 


BE 


EE 


F6 


EF 


F9 


ES 


F2 


Zl 50- 


AQ 


F5 


SE 


AO 


EG 


£9 


&3 


£8 


2158- 


F.9 


E5 


FP 


an 


nn 


AO 


AO 


BC 


21 60- 


D2 


BE 


E5 


E3 


E5 


F6 


EF 


E9 


21 68- 


F2 


AO 


F5 


EE 


AO 


E6 


E9 


E3 



21 70- 


E8 


ES 


E5 


F2 


8D 


8D 


AO 


AO 


21 78- 


BC 


CD 


BE 


EF 


E4 


E9 


B6 


E9 


2180- 


ES 


F2 


AO 


EC 


E5 


AO 


FO 


F2 


2189- 


FB 


E6 


B9 


F8 


E5 


8D 


8D 


AO 


21 90- 


AO 


BC 


CF 


BE 


EE 


EC 


E9 


EE 


2198- 


E5 


8D 


8D 


AO 


AO 


BC 


C3 


BE 


21A0- 


El 


F4 


El 


EC 


EF 


E7 


F5 


E5 


21A8- 


8D 


8D 


AO 


AO 


nr. 


m 


RF. 


F5 


21B0- 


E9 


F4 


F4 


E5 


F2 


8D 


8D 


8D 


21R8- 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


21 C0- 


D6 


EF 


F4 


F2 


E5 


AO 


E3 


E8 


21C8- 


EF 


E9 


F8 


AO 


BA 


00 


D4 


FB 


21D0- 


EC 


FD 


E3 


E8 


El 


F2 


E7 


E5 


21D8- 


ED 


E5 


EE 


F4 


AF 


D4 


FB 


EC 



21E0- 


FB 


F2 


FB 


E3 


E5 


FO 


F4 


ES 


21E8 


EF 


EE 


AO 


DF 


DF 


DF 


DF 


DF 


21F0- 


DF 


DF 


DF 


DF 


DF 


DF 


8D 


00 


21F8- 


20 


09 


OE 


14 


05 


12 


10 


OF 


2200- 


OD 


13 


20 


A9 


03 


tfi 


22 


20 


2208- 


58 


FC 


20 


A7 


31 


20 


FA 


?F 


2210- 


A9 


07 


85 


25 


20 


22 


FC 


A9 


2218- 


00 


85 


24 


AO 


24 


A9 


B8 


20 


2220- 


3A 


DB 


A9 


26 


8D 


B7 


2C 


A9 


2228- 


09 


20 


47 


F8 


20 


C7 


2B 


90 


2230- 


03 


4C 


10 


2E 


AC 


38 


2C 


DO 


2238- 


05 


20 


82 


32 


BO 


D2 


B9 


8E 


2240 


2C 


C9 


AF 


DO 


01 


88 


BC 


6E 


2248- 


35 


8C 


AE 


35 


B9 


BE 


2C 


C8 



8 
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INC CHOIXIND+l 

DEY 

WE CHOIXS 

CUOIXIND JMP (ADRCHOIXt ; »aut uila a juui par lc tsliulx 



JMP VADEB 

SA1 LDY TPS 

BNE SUITESAI 

JSR BIP 

BCS SAISIN1 



: lon&ueur nam > 
; Binon pas d' accord 



LIGNE JSR GBASCALC 

LDY 439 

LDA #"_«• 

LIQNC1 STA (GBASL) , 3C 
DEY 

BFL LIQHE1 



MESCHOTX ASC "ERMOCQ" 



SUITESAI LDA BUFF IN ,Y 

Off IV" 

BNE SUITED 
DEY 

SUITED STY PATHNAME 

STY LNGPATHN 

SUITSAI1 LDA BUfriNfY 
1NY 

STA PATHNAME, Y 



; le dernier car est un / ? 



; stocfce no/n pour MLI 

l et <j s rde la longueur 



MESMENU DFD 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
dfb 
ASC 
DFB 
ASC 
DFB 
ASC 

Dta 

MESTITRE ASC 
ASC 
DFB 

P0M5 INV 



SOD, SOD 

" <E>nvoyer un ticnler" 
S8D f SBD 

" <fi>ecevQi r un fichier" 
SBD, SBD 

" <M>udS fierc lc pjiiflxc" 
S8D, $80 

" <0>nl i ne 
S8D, SBD 

SBD, S8D 

" <Q>uicter" 

Sen, SBD, S8D 

" Votrc cnoix ; " 



"Tel echa rgeme.it/TeI er " 

"exception " 

S8D,0 

" INTERPOMS ■ 



DEI' 

BPL SUITSAU 

JSR CmVRF.FTC 

BCC SUITOUV 

JMF CLOTFIC 

SUITOUV JSR CFI 

BCC SUITOUVO 

JMP CLOTFIC 



SUITOUVO LDA 
rMP 
BNE 
LDA 
JSR 
JSR 
JSR 
JMP 



FILETYG 

ISF" 

SU1T01 

t$7£ 

ERREUR 

CLOSEFIL 

CETRET 

ENVFICH 



f ntivrtt flnhlttr rfemanrft* 



; aet file info 



; C'est un di rttctary ? 
/ r. CVb 

; oui, c'est Inzerdlc 



SUIT01 



* ENVOI DE FICHIER 



ENVFICH LDA t3 

STA WNDTOP 



LDA 
STA 
JSR 
BCC 
JMP 



REFNUM 
REFNLWG 
GET LONG 
SU1 TVUV1 
CLOTFIC 



JSR 


HOME 




SUITOWSl LDA 


ill 


JSR 


RECOIT 


S s'll rests un carac 


STA 


CV 








JSR 


VTAB 


JSR 


LITPREF 




LDA 


iO 


LDA 


n 


t £3ieie du nam de Flchiec 


STA 


CH 


STA 


cv 




LDX 


BLOCKUS 


JSR 


VTAB 




LDA 


BLOCKUS+2 


LDA 


lb 




JSR 


LINPTR 


STA 


CH 




LDY 


t->M£SBLOC 


LDY 


t>NOMTIC 




LDA 


t<MESBLOC 


LUA 


KNVMFi C 




JSR 


STROUT 


JSR 


STROUT 




JSR 


GETRET 


T.DA 


Mfl 




BCC 


BOUCLEO 


STA 


LONG 




JSR 


CLOSEFIL 


LDA 


19 




JMP 


ENVFICH 


JSR 


GBASCALC 








JSR 


INPUT 




BOUCLEQ JSR 


RETOURN 


BCC 


SA1 




JSR 


CONNECT 



cicupice longueur du fichicr 



; atflche blocs a transferer 



; o* pour crans rerc f 
; oui 



; retourne le Mlnitel e/netteur 
/ oz io conr.Qozo 



2250- 


99 


6K 


35 


8R 


RH 


70 




?n 


2258- 


IF 


2D 


30 


03 


4C 


E6 


23 


20 


22 Bo- 


54 


2F 


90 


03 


4C 


E6 


23 


AD 


sses - 


64 


2F 


C9 


OF 


DO 


0E 


A9 


7E 


2270- 


20 


D2 


31 


20 


71 


2D 


20 


IE 


2278- 


32 


4C 


03 


22 


AD 


30 


2D 


BD 


2280- 


IB 


2D 


20 


V£ 


2D 


90 


03 


4C 


2288- 


E6 


23 


A9 


OB 


85 


25 


20 


22 


2290- 


FC 


A9 


00 


85 


24 


AE 


68 


2F 


27 98- 


AD 


69 


?F 


20 


24 


ED 


AO 


24 


22A0- 


A9 


D5 


20 


3A 


DB 


20 


IE 


32 


22A8- 


90 


06 


20 


71 


2D 


4C 


03 


22 


22B0- 


20 


F8 


34 


20 


E9 


34 


A9 


OA 


22B8- 


20 


30 


21 


A9 


OB 


85 


22 


20 



22C0- 


58 


FC 


20 


FB 


DA 


E€ 


22 


20 


22C8- 


16 


35 


A3 


06 


20 


72 


24 


A3 


22 DO- 


Q0 


8D 


FA 


25 


8D 


FB 


25 


20 


22D8- 


A7 


31 


BO 


0D 


AD 


00 


CO 


2C 


22E0- 


10 


CO 


C9 


9B 


DO 


Fl 


4C 


FA 


22E8 


23 


CO 


10 


FO 


06 


CO 


15 


FO 


22F0- 


05 


DO 


E4 


4C 


53 


24 


4C 


87 


22F8- 


24 


20 


4B 


2D 


50 


12 


C9 


4C 


2300- 


DO 


03 


4C 


91 


23 


20 


D2 


31 


2308- 


A9 


19 


20 


9A 


31 


4C 


E6 


23 


2310- 


20 


2B 


30 


20 


16 


35 


A9 




2318- 


ftn 


FC 


75 


70 


77 


74 


AF. 


FA 


2320- 


25 


AD 


FB 


25 


20 


24 


ED 


20 


2328- 


39 


31 


AS 


OB 


8D 


F7 


25 


20 



2330- 


A7 


31 


BO 


1A 


AD 


00 


CO 


2C 


2338- 


10 


CO 


C9 


9h! 


t'O 


0D 


20 


88 


2340- 


31 


CE 


F7 


25 


AD 


F7 


25 


FO 


2348- 


10 


10 


E4 


4C 


FA 


23 


C9 


13 


2350- 


DO 


03 


4C 


53 


24 


C9 


15 


DO 


2358- 


29 


EE 


FC 


25 


AD 


FC 


25 


C9 


2360- 


OB 


DO 


03 


4C 


F2 


23 


20 


16 


2368- 


35 


AE 


FC 


25 


A9 


00 


20 


24 


23 10- 


ED 


A9 


02 


20 


12 


24 


AE 


FA 


23 78- 


25 


AD 


FB 


25 


20 


24 


ED 


4C 


2380- 


27 


23 


L9 


06 


P0 


A9 


EE 


FA 


7388- 


75 


DO 


03 


BR 


FR 


75 


4C 


F9 


2390- 


22 


A9 


01 


8D 


FC 


25 


20 


16 


2398- 


35 


A 9 


08 


20 


72 


24 


AE 


FC 



Pom's n° 28 



LDA 
JSR 
LDA 
STA 
JSR 
JSP 
INC 
JSR 
LDA 
JSR 
LDA 
STA 
STA 



BGUCLE 



l: 



L? 



LZZ 
L3 



DECD 



Lin 



131 



410 

LICNE 
421 

WNDTOP 

HOME 

cnoirr 

WtJDTOP 

M3UTKCH 

46 

HOW 
40 

NUHDLOC 
NUHBLOC*! 



JSR RECOIT 

BCS 12 

LDA KBD 

BIT STROBE 

CMP 4S9B 

BNE BOUCLE 

JMP AfJNEME 

CMP 4CAN 

BEQ L? 

CMP 4NACK 

fiCy L22 

BNE BOUCLE 

JMP ANNRF.r 



JMP 
JSR 



CONTBLC 
LITFIC 



BCC DECO 

CMP 4S4C 

BNE L333 

JMP F1NFICH 



JSP 
LDA 
JSH 
JMP 

JSP 
JSR 
LDA 
STA 
JSR 
LDX 
LDA 
JSR 
JSR 
LDA 
STA 
JSR 
BCS 
LDA 
BIT 
CMP 
BEQ 
JSP 
DEC 
LDA 



F.PPFI1P 
4CAN 

ENVOI 
CLOTFXC 

CODEBLOC 

MOUTKCR 

41 

NESSAI 

MOUT 

NOMBLOC 

NUMBLOC+1 

LINPTR 

FNVPT.nr 

411 

ATTENTt 
RECOIT 
L4 
KBD 

STROBE 
4$9B 

L310 
WAIT 
ATTESTS 
ATTENTE 



initialise n' blocs 



/ attendre rieepteur 



; anetceur veut annuler ? 



; oul 

; recepteur veut annuler ? 
; ouf 

/ nock — c ckTjr.c r.cc r 



; nn f & rmp 

; conszlzue le bloc 

i lit taut le flchier 

; tin fichier 7 

i oul, 2e ciere 



; nnn, afflfthnr 1 'erreur 
i envois annulation 

f et le fermer 

f code Jo bloc 



Massage 1 



n' du bloc 
mt 7 'envoi f> 



attendee acquiescement 

emetteur veuc abandcnnei- ? 
jcte/id JO X 3 second* 



L320 
L4 



L441 



L4411 



14 : 



3EQ 
3PL 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
INC 
LDA 

CMP 
BSE 
JMP 
JSR 
LDX 
LDA 
JSR 

IDA 
JSR 
LDX 

LZ.-. 
JSH 
JMP 

bne 
INC 
8KB 
I2VC 

JMP 



L441 
L31 

AHNZHE 
4 CAN 
L44 

ANNREC 

4NACK 
L4D 

NESSAI 

NESSAI 

411 

L44U 

ANNEMEO 

MOUTKCR 
NESSAI 

to 

LINPTR 

~ 

NVHBWC 
&UM3LOC*l 

L30 
4ACK 

L450 

NOMBLOC' 1 

L3 



FINFICH LUA fl 

STA NESSAI 

FINO JSR MOUTKCR 

LDA 48 

JSR MOUT 

LDX NESSAI 

LDA 40 

JSR t. TNPTP 

LDA 4E0T 

JSH EHVOI 



LDA 
STA 
JSR 
BCS 
LDA 
BIT 
CMP 
BEQ 
JSR 
DEC 
LDA 
BEQ 
BNE 

CMP 
BEQ 
CMP 
BEQ 



411 

ATTENTE 

RECOIT 

F1N3 

KBD 

STROBE 

4$ 35 

FIN4 

NAIT 

ATTFNTF 

ATTENTE 

EIN5 

FIN2 

4 CAN 
EIN4 

FACK 
FIN4 



I ovi 

; recepteur veut annulet ? 

; oui 

• recepteur n'a pA< mmpri.i ? 

i oui r on recommence 10 fois 

i on eeemet 10 fois maximum 



f affiche n' de I'ess&i 
; puis message 2 

; puis nuntero du tJloc 



,- recepteur 3 comprlx, 

i on passe au bloc suivanc 



: nn continue 

; on annonce tin de tran^m 
; et on attend une reponse 



FJN5 



INC .VESSA t 



a on recoit CAN ou ACK ? 



10 eaaaia inaxi 



23A0- 


25 


A 9 


00 


20 


24 


ED 


A9 


01 


P3A8- 


20 


9A 


31 


A9 


OB 


8D 


F7 


25 


23B0- 


20 


A7 


31 


BO 


17 


AD 


00 


CO 


23B8- 


2C 


10 


CO 


C9 


9B 


FO 


IF 


20 


23C0- 


88 


31 


CE 


F7 


25 


AD 


F7 


25 


23C8- 


FO 


OA 


DO 


E4 


C9 


19 


FO 


OE 


23D0- 


C9 


06 


FO 


OA 


EE 


FC 


25 


AD 


23U8- 


FC 


25 


C9 


OB 


DO 


B8 


20 


16 


23E0- 


35 


A 9 


04 


20 


77 


?A 


?n 


77 


23E8- 


2D 


20 


07 


35 


20 


IE 


32 


4C 


23F0- 


03 


22 


20 


16 


35 


A9 


07 


20 


23F8- 


72 


24 


A9 


01 


BD 


FC 


25 


20 


2400- 


16 


35 


A9 


05 


20 


12 


24 


AE 


2408 


FC 


25 


AD 


00 


20 


24 


ED 


A9 



2410- 


19 


20 


SA 


31 


A3 


OB 


OD 


Fl 


2418- 


25 


20 


A7 


31 


BO 


17 


AD 


00 


2420- 


CO 


2C 


10 


CO 


C9 


9B 


FO 


IF 


2428- 


20 


88 


31 


CE F7 


25 


AD 


F7 


2130- 


25 


FO 


OA 


10 


E4 


C9 


19 


FO 


2438- 


OE 


C9 


06 


FO 


OA 


EL- 


FC 


25 


2440- 


AD 


FC 


25 


C9 


OB 


DO 


Rfl 


?n 


2448- 


07 


35 


20 


71 


2D 


20 


IE 


32 


2450- 


4C 


03 


22 


20 


1 6 


35 


A9 


03 


2458- 


20 


72 


24 


4C 


E6 


23 


20 


FB 


2460- 


DA 


20 


FB 


DA 


18 


60 


AO 


03 


2468- 


D9 


F3 


25 


20 


ED 


FD 


88 


10 


2410- 


F7 


60 


AO 


FF 


C8 


D9 


18 


25 


2473- 


DO 


FA 


C8 


B9 


18 


25 


10 


06 



2480- 


20 


ED 


FD 


4C 


7A 


24 


60 


A9 


2488- 


01 


8D 


00 


14 


AU 


U2 


&y 


IC 


2490- 


2D 


99 


5C 


1 4 


88 


10 


Fl 


AO 


2498- 


09 


B9 


60 


2F 


99 


50 


14 


88 


24A0- 


10 


F7 


AD 


AE 


35 


8D 


60 


14 


24A8- 


A6 


C8 


B9 


CE 


35 


23 


7F 


99 


24B0- 


60 


14 


88 


DO 


F5 


4C 


10 


23 


24B8 


CE 


EF 


ED 


AO 


E4 


FS 


AO 


B6 


24C0- 


E9 


E3 


E8 


E9 


E5 


F2 


AO 


CO 


24C8- 


AO 


F4 


F2 


El 


EE 


E6 


FB 


F2 


24D0- 


E5 


F2 


AO 


BA 


00 


AC/ 


E2 


ZC 


24D8- 


EF 


E3 


F3 


AO 


EC 


F5 


E9 


AO 


24E0- 


F3 


EF 


EE 


F4 


AO 


El 


E6 


E6 


24E8- 


E5 


E3 


F4 


FB 


F3 


AE 


8D 


8D 



Pom's n* 28 



LDA NESSAI 

CMP HI 

BUB FINO 

JSR MOUTKCR 

LDA 14 

JSR MOLT 



CLOTFJC JSR CLOSEFIL 

JSR DECONNE 

JSR GFTRET 

JMP ENVFICH 

ANNEMEO JSR MOUTKCR 

LDA #7 

JSR MOUT 

ANNEXE LDA 



ANNEXE 1 



A 32 



A4 



#2 

STA NESSAI 
JSR MOUTKCR 
LDA 15 
JSR MOLT 
LDX NESSAI 
LDA tO 
JSR J. THPTR 
LDA 0CAN 
ENVOI 



JSR 

r.DA 

STA 
JSR 
BCS 
LDA 
BIT 
CM? 
BEQ 
JSR 

DEC 
LDA 
sty 
BPL 



§n 

ATTENTE 

RECOIT 

A4 

KBD 

STROBE 

t*9B 

A41 

WAIT 

ATTENTF 
ATTENTE 
A40 
A32 



CMP /CAN 

BEQ A41 

CMP SACK 

BEQ A41 



TNC 
LDA 
CMP 
RNF 
JSR 
JSH 
JSR 
JMP 



NESSAI 
NESSAI 
011 

DECONNE 
ULUSEF1L 
GETRET 
ENVFICH 



ANNREC JSP MOUTKCR 

LDA 03 

JSR MOUT 

JMP CLOTFIC 

MVUTCH JSR CRUUT 



; cloze fichier 

; deconnexion du Minltel 



; on reno.nce 



; annulaclon emecceur 



; actendrc acquiescement 

; de l'annulatlon 

; emeiteur veuc abandonner ? 



Te 1 echargement/Te 1 erecept i on 




1 IHTERROH'S ■ 


Prefixe /UN 1 D 1 SK3 . 5/TRflNS / 




Blocs 1 ibres sur ce disque : 


126 


Reception du fichier : 
FICHIER. MAC. F 




* fitter, te du bloc 

* B 1 oc recu 

* liombre de blocs a recevoir ; 17 

* Emetteur : Macintosh 


Mercredi 14 Janvier 1987, 15 


46. 



; affiche 



avant chaque 



t mcosaqc 



pi annulaclon ou compris 
Clni 



i slnuiig uii xccufiuticjii^c JO Cols 



; .nc^^nye 3 



JSR CROUT 

CLC 

RTS 

MOUTK LDX t3 
MOUTQ LDA MT2, Y 

JSR CQUT 

DF.Y 

BPL MOUTO 

BTS 

MOUT LDY 4SFF 

M0UT1 JNY 

CMP MT1,Y 
BNE MOUT1 

M0UT2 INY 

LDA MT1, Y 
BPL M0UT3 
JSR COUT 
JMP M0UT2 

MOOTS rts 



OONTBLC LDA tl 

STA BUFNC 

TJ)Y t? 

CONTO LDA EOF, Y 

STA 3UtNU*8QH2, X 

DEY 

BPL CONTO 

LDY f9 

CONT1 LDA parlstg, i~ ; paramezres de Gecfilelnro 

STA BUFNC*80, Y 
DEY 

BPL CONT1 

LDA LNGPATHN ; tsL nam pc6ced& de Ing 

STA BUFNC+80+16 



; prepare le bloc de concrole 
; c 'est un Apple // 



24F0 


CD 


E5 


F4 


F4 


ES 


FA 


AO 


EC 


24F8- 


E5 


AO 


CD 


E9 


EE 


E9 


F4 


E5 


2500- 


EC 


AO 


F3 


EF 


F5 


F3 


AO 


F4 


2508- 


£5 




t'J 


E$ 


EF 


EE 


AC 


AO 


2510- 


FO 


F5 


F.9 


F3 


AE 


AE 


AE 


00 


2518- 


01 


C5 


ED 


E9 


F3 


F3 


E9 


EF 


2520- 


EE 


AO 


E4 


F5 


AO 


E2 


EC 


EF 


2520- 


E3 


AO 


EE 


DB 


AO 


02 


FD 


ED 


2530- 


E5 


AO 


F4 


E5 


EE 


F4 


El 


F4 


2538- 


E9 


F6 


E5 


AO 


FO 


EF 


F5 


F2 


2540- 


AO 


E2 


EC 


EF 


E3 


AO 


EE 


DB 


2548- 


AO 


03 


D2 


FB 


E3 


E5 


FO 


F4 


2550- 


E5 


Fb 


F2 


AO 


El 


AO 


E4 


E5 


2558- 


F.n 


F.I 


EE 


E4 


FB 


AO 


El 


EE 



2560- 


EE 


F5 


EC 


El 


F4 


ES 


EF 


EE 


2568- 


04 


D4 


F2 


El 


EE 


F3 


ED 


E9 


2570- 


F3 


F3 


E9 


EF 


EE 


AO 


F4 


E5 


25 7S- 


F2 


ED 


E9 


EE 


FB 


E5 


05 


CI 


2580- 


EE 


EE 


F5 


EC 


El 


FA 


E9 


FF 


2588- 


EE 


AO 


E5 


EE 


AO 


E3 


EF 


F5 


2590- 


F2 


F3 


AC 


AO 


E5 


F3 


F3 


El 


2598 


E9 


AO 


EE 


DD 


AO 


06 


CI 


F4 


25A0- 


F4 


E5 


EE 


F4 


E5 


AO 


E4 


F5 


25A8- 


AO 


F2 


FB 


E3 


B5 


FO 


F4 


E5 


25B0- 


F5 


F2 


AE 


AE 


AE 


01 


C8 


FB 


2538- 


EC 


El 


F3 


AC 


AO 


E9 


EC 


AO 


25C0- 


E€ 


El 


F5 


F4 


AO 


F2 


E5 


EE 


25C8- 


EF 


EE 


E3 


E5 


F? 


AF 


AE 


AE 



25D0- 


08 


CI 


EE 


EE 


EF 


EE 


S3 


E5 


25D8- 


AO 


E4 


E5 


AO 


E6 


ES 


EE 


AO 


25E0- 


E4 


ES 


AO 


F4 


F2 


El 


EE 


F3 


25E8- 


ED 


ES 


F3 


F3 


E9 


EF 


EE 


AE 


25F0- 


AE 


AE 


00 


AO 


AA 


AO 


AO 


00 


25F8- 


00 


00 


00 


00 


00 


A2 


27 


A9 


2600- 


AO 


9D 


CF 


07 


CA 


10 


FA 


60 


2600- 


20 


FD 


25 


A9 


03 


85 


22 


20 


2610- 


58 


FC 


20 


EA 


2F 


20 


FB 


DA 


2618- 


AD 


AE 


35 


8D 


6E 


35 


20 


51 


2620- 


2F 


90 


06 


20 


IE 


32 


4C 


10 


2628- 


2E 


A9 


OE 


20 


36 


29 


AD 


65 


2630- 


2F 


38 


ED 


68 


2F 


8D 


BA 


2B 


2G3R- 


AA 


AD 


66 


2F 


ED 


6S 


2F 


8D 



Pom's n" 28 



21 





TAY 






TNY 




CQNT2 


LDA 


PATHNAME, Y 




A.*.. 


tiQlllllll 




STA 


BUFVC*80+16, Y 




DEY 






BNE 


C0NT3 




JWP 


DECO 


NOMFIC 


ASC 


"Nom du flchler a tranfere* 




OFH 


n 


ME S BLOC 


ASC 


" bloca Jui jonC af/ecCia." 




UFO 


SBU, SQL* 


MESBLOCM ASC 


"Mettee le Minicel sous tension, 




DFB 





MT1 


DFB 


X 




ASC 


"Emission du bloc n' " 




DFB 


2 




ASC 


j ■ pour bloc n' " 




DFd 


3 




ASC 


"fldcepteur a demande annulatton" 




DFB 


4 




ASC 


"Tranfiml inn t r*rm i n£n " 




DFB 


5 




ASC 


"Annulation en caucs, essai n' " 




DFB 


6 




ASC 


"Attf-ntn du rtcapt mi r . . . ** 




DFB 


7 




ASC 


"H&las, 11 Taut cenoncez. . . " 




DFB 


8 




ASC 


"Annonce de fin de t ransntissSon. 




DFB 





MT2 


ASC 




ATTENTE 


DS 


3 


NUMBLOC 


DS 


2 


NESSAI 


DS 


t 


EFFDATE 


LUX 


t39 ; efface la date 




LDA 




EFFDATE1 


STA 


$7CF,X 




DEX 






BPL 


EFFDATE1 




RTS 











RECOR 



RECS03 



RECEPTION DE FICH1EB 



JMP 


VADEB 




LDA 


PI 4 




JSR 


MOUTREC 


f 1 'affiche 


LDA 


AUXTYPG 




SEC 






SBC 


HLnctais 




STA 


FREEWL 


f jacde pJdccr libte flHIl 


TAX 






LDA 


AUXTYPG* 1 




SBC 


3L0CKUS+1 




STA 


FREEVOLU 


/ id 


JSR 


LINPTR 




LDA 


FREEVOL 


f de la place sur ce vol 


BNE 


RECOR 




LDA 






BNE 


RECOR 




LDA 


t$7D 




jsn 


ERREUU 




JMP 


F1NRECP 




JSR 


MOUTCR 


; exception du flchler.. 


IDA 


il 




JSR 


MOUTREC 




JSR 


MOUTCR 




LDA 


410 


; llmite fenetre 


JSR 


LI CUE 




LDA 


ni 




jI n 






JSR 


HOME 




JSR 


CROUT 




JSR 


CROUT 




INC 


WNDTOP 




LDY 


$>MESBLOCM 




M3A 


§<MFSH1.0Cht 


• m*> 1 1 rfl Min'tfl cmic for 


JSR 


STROUT 




LUX 


§>RECSTR 




LDA 


$<R£CSTR 


; fdire RETURN ou ESC 


JSR 


STROUT 




LDA 


KBD 




BFL 


RECS03 




BIT 


STROBE 




CMP 


tSBD 




BEQ 


COM* 




CMP 


t$9B 




BNE 


RECSQ3 




JMP 


F2NRECP 





JSR 


EFFDATE 


CJMM 


JSR 


HUME 


LUA 


93 




JSR 


CONNECT 


STA 


HNDTOP 




LDA 


to 


JSR 


HOME 




STA- 


NUMBLOC 


JSR 


LITPREF 




STA 


NUMBLUCtl 


J5R 


CROUT 




STA 


DRAPBLO 


LDA 


LNCPATHN 








STA 


PATHNAME 


DEBREC 


LDA- 


to 


JSR 


CFI 


placs sur volume ? 


STA 


NESSAT 


BCC 


RECO 




LDA 


DRAPBLO 


JSR 


CETRET 




BEQ 


REC11E 



; attend bloc 



/ initialise 10 csaais 



2640- 


&& 


2B 


20 


21 


ED 


AD 


BA 


2B 


2648- 


DO 


on 


AD 


flfl 


?R 


DO 


08 


.49 


2bbU- 


ID 


20 


02 


Jl 


4C 


29 


29 


20 


2658- 


5E 


24 


A9 


01 


20 


36 


29 


20 


2660- 


5E 


21 


A9 


OA 


20 


30 


21 


AS 


2668- 


OB 


85 


22 


20 


58 


FC 


20 


FB 


2670- 


DA 


20 


FB 


DA 


E6 


22 


AO 


24 


2618- 


AS 


FO 


20 


3A 


DB 


AO 


2A 


AS 


2680- 


26 


20 


3A 


DD 


AD 


00 


CO 


10 


2688- 


FB 


2C 


10 


CO 


C9 


8D 


FO 


07 


2690- 


C9 


9B 


DO 


FO 


4C 


29 


29 


20 


2638- 


bu 


rc 


20 


E3 


Jl 


AH 


00 


80 


26A0- 


FA 


25 


8D 


FB 


25 


RD 


RC 


?n 


26A8- 


A9 


01 


BD 


FC 


25 


AD 


BC 


2B 



26B0- 


FO 


Ob 


AS 


OA 


8D 


FC 


25 


20 


26B8- 


16 


35 


A9 


OS 


20 


36 


29 


AE 


26LV- 


tA 


25 


AD 


FB 


25 


20 


24 


ED 


26C8- 


A9 


00 


80 


F7 


25 


8D 


F8 


25 


26D0- 


80 


F9 


25 


AD 


FA 


25 


DO 


OA 


26D8- 


AD 


FB 


25 


DO 


05 


A3 


15 


20 


26E0- 


9A 


31 


20 


A7 


31 


BO 


30 


EE 


26E8- 


F7 


25 


DO 


08 


EE 


F8 


25 


DO 


26F0- 


03 


EE 


F9 


25 


AD 


F7 


25 


DO 


26F8- 


OE 


AD 


F8 


25 


C9 


87 


DO 


07 


2700- 


AD 


F9 


25 


C9 


02 


FO 


OC 


AD 


2108- 


00 


CO 


2C 


10 


CO 


C9 


9B 


yo 


2710- 


35 


DO 


CF 


RE 


FC 


25 


AD 


FC 


2718- 


25 


C9 


OB 


DO 


9A 


FO 


27 


C9 



2/20- 


04 


DO 


03 


4C 


10 


29 


C9 


19 


2728- 


DO 


03 


4C 


FA 


29 


C9 


01 


DO 


2730- 


03 


4C 


bC 


27 


A2 


OA 


20 


88 


2738- 


31 


CA 


DO 


FA 


20 


A7 


32 


A9 


2740- 


15 


20 


9A 


31 


DQ 


9C 


20 


It 


2748- 


35 


A9 


09 


20 


36 


29 


20 


SE 


2750- 


24 


A9 


19 


20 


9A 


31 


20 


1C 


2758- 


35 


4C 


29 


29 


20 


BB 


30 


EE 


2760- 


F7 


07 


A9 


00 


BD 


87 


31 


20 


2168- 


Bl 


31 


BO 


03 


4C 


E5 


28 


29 


2710- 


3F 


8D 


FB 


16 


20 


37 


31 


BO 


2178- 


03 


4C 


E5 


28 


29 


3F 


8D 


FF 


2780- 


16 


20 


B7 


31 


BO 


03 


4C 


E5 


2188- 


28 


EE 


t'7 


0/ 


20 


37 


31 


BO 
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LDA 


tio 






a etc 






STA 


NE5SA1 






f nil 


ocpn f T 
tiiti —A 


n f.c. i i r. 


TCD 


iniwo 

f*n/l/ IRI./i 






Ten 


r.H til 1 




tM 








BSE 


RECOO 






JUT It l^l'U L7 * 

. 7-' - - — - 












r nv 
LISA 






rrTrrr 








Lit A 








hi/A 






JSR 








JSR 
JSR 


MOUTOR 




LDA 


#0 






LDA 


fCAN 




CP/t 


AJ i £i¥ I £ 






•JSR 


£>Ar VCx 




CTJI 

o JA 


nil £J» 1C + 1 






•T.1R 








m rnni riif fpri . -n 






JMP 


c tHHc.l-1' 




r na 
LiUn 


Ijtfn W* r ' rl ■ 




si bloc en wynz. 








BNE 






retjulierement NACK RECBLOC 


JSR 


INITCOD 




LUA 








INC 


e "J r"T 






RE"— 00 






LDA 


An 




LDA 


tNACK 






STA 


un£Ct\5U/7 




rep 








JSR 


RECOIT1 


R FCOO 


.T<JE> 


RF.CDT T 


* 




BCS 


RECS1 




BCS 


PEC1 






JMP 


RECERR 




INC 


T . -_' .' . -" 




pendsnt. 10 s&condss HEfJj? 1 


AND 






O ME 1 








STA 


BUFC—2 




t ur* 

-L JVL. 


nli til* . _ 












BNE 








JSR 


RECOIT1 




INC 


ATTFNTFr? 






BCS 


REC52 












JMP 


RECERR 




DitC> 


RFcnn ? 




RECS2 


AND 


t tnn 111111 
f 9UUI1111 1 




r.nA 


fl 1 rWV 1 r.+ 1 






STA 


BDFC—1 




CMP 


1135 












H ML' 








TCD 






LiUlK 


HTTFNTF* 7 
til i Ciii i *j ' « 














J7 






Jnr 


DITTO D 












iNC 


? ft f 


REC002 


L.DA 








JSR 


REC0IT1 




n it 

Oil 


.j J ft I/O c< 


* 


Jl _ O 1— Oil L 'J 4 •- 




K1.LJJ 




CMP 










KfiUef<« 




BEQ 


RECREN 




RECS5 




# 1/ 












Jin 

CLC 




REC003 


INC 








ADC 


CHECKSUM 




LDA 


NESSAI 






AND 


fiVUl 1 1 11 1 




CMP 


#11 






STA 


CHECKSUM 




BMC 


K&Uii £ 






INC 


CCrlrrC. 




BEQ 


n e*/"* rj l* hi 


* 


on absndonns acres 20 essais 


BNE 
INC 


RECBLOC2 
CVHPl't. + l 


REC1 


CMP 


/Eor 


* 


tin a xe^u £OT ? R£7CBLOC2 


LDA 


COMPTC 




UMt' 

DlVt 


QFC7 A 












JMP 








BNE 


HECdLUCI 














I J /rl J 1 . T 1 




BNE 


REC1B 






CMP 






JMP 


RECCAN 








Uk'f *H 1 f If " ( 


n£< •> j o 


CMP 




* 




IDA 


^ n n 












Sxrl 


i If I 




JMP 








JS« 


REcum 


fiECJC 


LDX 


•fJO 






BCS 


RECS04 




JSR 




& 


autre chose ? 


JMP 


RECERR 



Viae carte au cas ou 



r^cepceur abandonne 



recu SOR, e'ese un bloc 



; sauve n ' bloc 



sauvs Inverse ji " b-loc 
code inucile pour Apple // 



reception du bloc 



; recoil checKsum 



2790- 


03 


AC 


E5 


28 


AO 


00 


91 


1A 


2796- 


18 


GD 


87 


31 


29 


3F 


8D 


87 


21A0- 


31 


E6 


1A 


DO 


02 




IB 


A5 


21AB- 


1A 


C9 


AC 


DO 


DC 


A5 


IB 


C9 


2 7BV- 


iy 


DO 


Db 


A9 


AO 


80 


F7 


07 


2 7B8- 


20 


B7 


31 


BO 


03 


AC 


E5 


28 


27CQ- 


29 


3F 


CD 


87 


31 


FO 


03 


4C 


27C8- 


E5 


28 


AD 


FE 


76 


49 


3F 


CD 


27D0- 


FF 


16 


FO 


03 


4C 


E5 


28 


AD 


27D8- 


FA 


25 


29 


3F 


CD 


FE 


16 


FO 


2 7E0- 


35 


90 


15 


EE 


FE 


16 


AD 


FA 


2 7E8- 


25 


29 


3F 


CD 


FE 


16 


DO 


08 


2 7F0- 


A3 


06 


20 


9A 


31 


4C 


A8 


26 


2 7F8- 


A9 


19 


20 


9A 


31 


20 


16 


35 



2800- 


A9 


OD 


20 


36 


29 


20 


16 


35 


2000- 


A9 


09 


20 


36 


29 


20 


5E 


24 


2810- 


20 


1C 


35 


AC 


08 


26 


20 


CA 


2818- 


30 


20 


16 


35 


A9 


OA 


20 


36 


2820- 


29 


AD 


BC 


2B 


to 


13 


AD 


BU 


2828- 


2B 


DO 


03 


20 


9A 


IP 


70 




2830- 


2D 


90 


03 


AC 


A7 


28 


AC 


C5 


283S- 


28 


20 


4B 


29 


20 


CA 


29 


20 


2840- 


1 6 


3D 


A9 


02 


20 


36 


29 


AE 


28A8- 


58 


14 


AD 


59 


14 


20 


24 


ED 


2850- 


20 


16 


35 


A9 


03 


20 


36 


29 


2858- 


AD 


00 


14 


18 


69 


OA 


20 


36 


2860- 


29 


AD 


BD 


2B 


DO 


25 


AD 


54 


2868- 


14 


C9 


04 


FO 


IE 


20 


88 


32 



2870- 


A9 


13 


20 


9A 


31 


20 


16 


35 


28 78 


AO 


2B 


AD 


76 


20 


3A 


DB 


20 


2880- 


FB 


DA 


20 


82 


32 


20 


1C 


35 


2888- 


4C 


29 


29 


AD 


BB 


2B 


CD 


59 


2890- 


14 


tro 


OA 


BO 


OA 


90 


3E 


AD 


2898- 


BA 


2B 


CD 


58 


14 


90 


36 


20 


28A0- 


D5 


29 


90 


OE 


20 


02 


31 


A9 


28A8- 


19 


20 


9A 


31 


20 


1C 


35 


4C 


28B0- 


08 


26 


AD 


AE 


3D 


8D 


CE 


35 


28B8- 


20 


IF 


2D 


BO 


EA 


AD 


BC 


2B 


28C0- 


DO 


03 


CE 


DC 


2D 


EE 


FA 


25 


28C8- 


DO 


03 


EE 


FB 


25 


A9 


06 


20 


28D0- 


9A 


31 


AC 


A8 


26 


A9 


?D 


20 


28D8- 


02 


31 


A9 


19 


20 


9A 


31 


20 
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H LCSU 1 


AND 


ftOOlllIll 






JSP 


MOUTREC 






pup 


LflLbA JUT) 




. . ... 
IS VB T 1 LIB) 


WA 


B-UFNC 






O.LCJ 








CLC 








JMP 








ADC 






/.-:■-.; 


LDA 


BUFC— 2 




n ' ~ . ~. t v3 1 i dc ? 


JSR 


MOUTREC 








s a nn 117 111 
f f UUi ii 11 A 














CMP 


BUFC- 1 






LDA 


TYPEAPF 






BEQ 


PECS 4 1 






BNE 


RSUITE01 






JMF 


RECERR 






LDA 


BUFNC*8A 




R ECS 41 


LDA 


rtUMSLOC 




vfirlTJer n~ Dice 


CMP 


ft 






AND 


0*00111122 






BEQ 








CMP 


BUFC- 2 






JSR 


WAIT 






BEQ 


RSUITE 






LDA 


/CAN 






BCC 








JSR 


FNvnr 














JSR 


MOUTXCR 




rip 1AF1 1 




OUT v c 


* 




ujr 


t>FICINC 










** 


non, on renonce 


LDA 


t<FICINC 






AND 


f * Lf J iiill 






JSR 


STROUT 






CMP 


BUFC- 2 






JSR 


CROUT 






a art* 
Oft 








JSR 


BIP 






r. 


4 * r* v 
JFAi.n 






JSR 


CDG 






JSR 


EN VOX 




h T t*i T 4 i y } 1 


JMP 


FINRECP 






.7MP 
.... 


UtDAL — 






LDA 


FREEVOL*! 














CMP 


BUFNC'89 










* 


vji ct < a - * . ji.bi-* 


BEQ 


ASS 






JSR 


ENVOI 






BCS 


ASSEZ 








ttJU l ivOrv 






BCC 


TROPEU 






LUJR 


fJJ 




ASS 


LDA 


FREEVOL 






icD 

JOA 


MTITD PC 

riUU 1 n£. - 






CMF 


BVFSCfBS 






JSR 


MMJTKCR 






BCC 


TROPEU 






LDA 


M O 














<J OA 


V ll 1 I'll Ct~' 




ASSES 


JSR 


CREFIC 






ICD 








BCU 


ASSEZU 






,TCD 

w J ft 


1, w l.- 






JSR 


ERREUR 






JMP 


PECFICR 


- 


ac acc©ndrfl RETURN 
















ASSEZERR 


LDA 


/CAN 




n Jul J Ci 


rep 

•V ^A 


. , r. i . . , . _ 






JSR 


ENVOI 


. 




JSR 


MUU 1 KL-ci 






JSR 


CDG 






LDA 


#itj 


* 




JMr 


RECFICH 






JSR 


MOUTREC 














LDA 


r □ 1 D D ' ■ 




ASSES 1 1 


LDA 


LNCPATHN 


f 






Ajl/i i CiU 


f 




STA 


PATHNAME 






1 . IiA 


i irtflrf 






JSR 


OUVREFIC 






BNE 


CM TTT*D Ji 

of J i J n/i 






BCS 


ASSEZERR 






JSR 








LDA 


DRAPBLD 




SUITTRA 


JSR 


£f* 


i 


enregisCrer un bioc 


BNE 


ASSESS 






BCC 


RLCbNHUK 






DEC 


DRAPBLD 






JMP 








INC 


NUMBLOC 






JMP 








BNE 


ASSEZ1 














ZNC 


NUMBLOC tl 




RSulTLU 


JSR 


rAJ IN'JM 




C0/15C2CUG Je nom 


LDA 


9ACR 








*if r (vt<A* 






JSR 


ENVOI 






JSR 






^ * X c *l v nu t* j u l i uu x^c#riAV 


JMP 


DEBREC 






LDA 
















JSR 


MOUTREC 






LDA 


437D 






i~nx 


RUFNC+RR 






JSR 


ERREUR 






LDA 


aUt frL- * f J* 






LDA 


tCAN 






JSR 








JSR 


ENVOI 














J5R 


CDG 






JSR 






Quel ordinateur emet ? 


JMP 


FINRECP 






LDA 


/3 













; on afficho son nom 



; pa vient d'un Mac ? 



,- c'ost du cexte 7 



non, alors annule 



; on crcc 1c flchlcr 



on ouvrc ic fichier cree 



; on acquiesce pour bloc o 



pdi tie place 



28E0- 


1C 


35 


AC 


29 


29 


20 


16 


35 


28E8- 


A9 


OB 


20 


Jb 


29 


A9 


AO 


60 


28F0- 


F7 


07 


A9 


15 


20 


9A 


31 


40 


28F8- 


A3 


26 


20 


1 6 


35 


A9 


OC 


20 


2900- 


36 


29 


20 


5E 


24 


A9 


06 


20 


2300- 


3A 


31 


20 


IC 


35 


iC 


23 


29 


2910- 


20 


5A 


2D 


A9 


06 


20 


9A 


31 


2918- 


20 


16 


35 


A3 


or 


20 


36 


29 


2920- 


20 


bS 


21 


20 


ic 


35 


4L 


29 


2928- 


29 


A9 


03 


85 


?? 


?0 


58 


FC 


2930- 


20 


EA 


2F 


4C 


D8 


20 


AO 


FF 


2938- 


C8 


D9 


83 


2A 


DO 


FA 


C8 


B9 


2940- 


83 


2A 


10 


06 


20 


ED 


FD 


4C 


2948- 


3E 


29 


60 


AD 


00 


14 


8D 


BD 



2950- 


2B 


FO 


2F 


AC 


60 


14 


B9 


61 


2958- 


14 


09 


30 


C9 


AF 


FO 


06 


88 


2960- 


DO 


F4 


88 


30 


05 


cc 


60 


14 


2968- 


FO 


F5 


A2 


FF 


E8 


C8 


B9 


61 


29/0- 


14 


09 


80 


9D 


6F 


35 


CC 


60 


2918- 


14 


DC3 


F1 


BE 


GF. 


35 


BE 


AE 


2980- 


35 


60 


AC 


B6 


29 


B9 


B6 


23 


2988- 


99 


6E 


35 


88 


10 


F7 


AD 


6E 


2990- 


35 


8D 


AE 


35 


AE 


AO 


14 


BD 


2998- 


AO 


14 


AO 


00 


D9 


25 


35 


FO 


29A0- 


08 


ca 


C8 


CO 


■42 


DO 


F5 


FO 


29A8- 


04 


C8 


B9 


25 


35 


09 


80 


9D 


29B0- 


CF 


0? 


CA 


DO 


E2 


60 


OD 


C6 


29B8- 


C9 


CJ 


C8 


C9 


L'5 


02 


AE 


CD 



29C0- 


Cl 


C3 


AE 


CI 


A9 


09 


20 


41 


29C8- 


F8 


AC 


6E 


35 


B9 


6E 


35 


88 


29DQ- 


91 


26 


DO 


F8 


60 


A9 


C3 


8D 


79m- 


rt* 


2D 


AO 


02 


H9 


54 


74 


99 


29E0- 


06 


2D 


88 


10 


F7 


A3 


01 


8D 


29E8- 


09 


2D 


20 


EA 


2C 


BO 


OC 


AO 


29F0- 


02 


B9 


5C 


14 


35 


6E 


ZD 


86 


29F8- 


10 


F7 


60 


C9 


47 


FO 


02 


38 


2A0O 


60 


AE 


6E 


35 


FE 


6E 


35 


BD 


2A08- 


6E 


35 


C9 


BA 


FO 


OD 


C9 


DB 


2A10- 


FO 


10 


9D 


6E 


35 


20 


C4 


29 


2A18- 


4C 


D5 


29 


AS 


CI 


9D 


6E 


3b 


2A20- 


DO 


F3 


A9 


BO 


DO 


F7 


8D 


8D 
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8D 


8D 


AO 


AO 


BC 


D2 


C5 


D4 
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RECEPP 


JSP 
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INY 








LDA 


§11 




LDA 


BUTSCr97 f X 






JSR 


MOUTREC 




ORA 


fSSO 






LDA 


1" n 




STA 


PATHNAME*! f X 






ftn 


S7F? 




CPY 








LDA 


iNACK 




BNE 


RECII2 






JSR 


t'NVLfl 




SIX 


FATHNAMt 






JMP 


DEBREC 




STX 
RTS 


LNGPATHN 




RECCAN 


JSP 


MOUTKCP 


! refu CAW MAC 


LDY 


FICMAC r 


c 'est un in&Cf oft chs/iyo 1& hgiti 




LDA 


412 


MAC1 


LDA 


FICtiACf Y ; 






JSR 


MOUTREC 




STA 


PATHNAME, Y 






JSR 


MOUTCR 




DEY 








LDA 


BACK 




BP I. 


MAC! 






JSR 


ENVOI 




LDA 


PATHNAME 






JSR 






STA 


LNGPATHN 






JMP 


FINRECP 




LDX 


BUFNC* 160 ; 


affiche date 


RECEOT 


JSR 


SETFINF 


/ rcfj EOT OATEMAC 


LDA 


BUFNC*160,X 






LDA 


iACK 


! on 3CQU1&SCG 


LDY 




c/I ; (M. u:;-; ( : ._ •: . :-. llu MI&L: 




JSR 




• fin ftrrrf DATEKACO 


CMP 


ACCENT, Y 






JSR 


MQUTKCR 




BEQ 


DATEMAC1 






LDA 


*15 




INY 








JSR 


MOUTREC 




INY 








JSR 


MOUTCR 




CPY 


166 






JSR 


CDG 




BNE 


DATEMACO 






-7MP 


FTNR FTP 


£>AT£MACJ 


BEQ 
INY 


DATEMAC2 




FINRECP 


LDA 


#3 




LDA 


ACCENT, Y 






'iTA 
Jin 






ORA 


H1GQ000G0 






JSR 


HOME 




STA 


s?cr,x 






JSR 


LITPREF 




DFX 








JMP 


CHOIX 




ONE 
RTS 


DATZMAC 






LDY 


tSFt 


✓ i ^ - mm ' ---iyi- 








M0UTRC1 


INY 
CMP 


mKsshkc y 




STR 


"FTCHTFR.MAC 


A- 




BNE 


M0UTRC1 


AFFNOM 


LDA 




afflche le nam regu, tronquG 




J.NI 






JSR 


GBASCALC 








mfSSRRC, y 




LDY 


PATHNAME 






SDL 


MQUTHC3 


RECNM3 


LDA 


PATHNAME, Y 






J&R 


COOT 




DEY 








JMP 


H0UTRC2 




STA 


(G3ASL) , Y 




M0UTRC3 


RTS 






BNE 
RTS 


RECNM3 




FAITNDM 


LDA 


BUFNC 












STA 


TYPEAPP 


CREt'iC 


LDA 


#5CJ 






BEQ 


MAC 


p -■ - - — - .. - - - -1 - t \J 1 1 1 Ci i\J+*wlit\- 


STA 


ACCESBT ; 


(unlock) 




LDY 


BUFNC* 9 £ 




LDY 


i? 




RECIIO 


LDA 


B UFNO+ 97 i' 




LDA 


BUFNC' 00' A,Y 






ORA 




* c ronrrup npmipr MHMEttflJ / 


STA 


t ILLTItL, I ; 


type de Cichlec ec 




CMP 


f«/1 




DEY 




sux fiJe type 




BEO 


RECH1 




BPL 


CREFIC1 




RECHOO 


DEY 






LDA 


n 






BNE 


RECHO 




STA 


STORAGE i 


acocAage aeec/Ung en standard 




DEY 






JSR 


CREFICH 






BMI 


RECH1 1 




BC5 


CREFIC2 




RECM1 


CPY 


BUFNC-* 96 




LDY 


03 






BEQ 


RECHOO 


ran 


LDA 


BUFNC 'f 32 , r ; 


aoyve J 'SOF 


RECH11 


LDX 


9$FF 




STA 


POSEOF, Y 




RECK2 


ZNX 






DEY 











02 


C£ 


BE 


AO 


til) 


AU 




2A38- 


EF 


ED 


ED 


E5 


EE 


E3 


E5 


F2 


2M0~ 


AO 


EC 


El 


AO 


F2 


FB 


E3 


£5 


2A48- 


FO 


F4 


E9 


EF 


EE 


8D 


AO 


AO 


2A5Q- 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


2A58- 


AO 


AO 


AO 


F3 


F5 


F2 


AO 


E3 


2A60 


E5 


AO 


F6 


EF 


EC 


F5 


ED 


E5 


2A68- 


8D 


8D 


AO 


AO 


AO 


AO 


AO 


BC 


2A70- 


C5 


D3 


C3 


BE 


AO 


BD 


AO 


F2 


2A78- 


E5 


EE 


EF 


EE 


E3 


E5 


F2 


AE 


2A80- 


AE 


AE 


00 


01 


D2 


FB 


E3 


E5 


2A88- 


FO 


FA 


£9 


EF 


EE 


AO 


El 


F5 


2A90- 


AO 


E6 


E9 


E3 


F.8 


E9 


F.S 


F2 


2A96- 


AO 


BA 


AO 


02 


CE 


EF 


ED 


E2 



2AA0- 


F2 


E5 


AO 


E4 


E5 


AO 


E2 


EC 


2AA8- 


EF 


E3 


F3 


AO 


CO 


AO 


F2 


E5 


2AB0- 


E3 


Eb 


F6 


EF 


E9 


F2 


AO 


BA 


2AR8- 


AO 


01 


C5 


F.D 


E5 


F4 


F4 


ES 


2AC0- 


F5 


F2 


AO 


BA 


AO 


04 


CD 


El 


2AC8- 


E3 


E9 


EE 


F4 


EF 


F3 


E8 


05 


2AD0- 


CI 


FO 


FO 


EC 


E5 


AO 


AF 


AF 


2AD8- 


06 


CS 


C2 


CD 


07 


D3 


E5 


F2 


2AE0- 


F6 


E5 


F5 


F2 


AO 


DO 


EF 


ED 


2AE8- 


A7 


F3 


OB 


CI 


F4 


F4 


E5 


EE 


2AF0- 


FA 


ES 


AO 


£M 


F5 


AO 


E2 


EC 


2AF8- 


BP 


E3 


AU 


t/y 


CF 


EE 


AU 


F2 


?Rnn~ 


FS 


EE 


EF 


EE 


E3 


E5 


OA 


C2 


2B08- 


EC 


EF 


E3 


AO 


F2 


E5 


DC 


F5 



2B10- 


OB 


D2 


FB 


FB 


ED 


E9 


F3 


F3 


2B18- 


E9 


EF 


EE 


AO 


E4 


F5 


AO 


E2 


2B20- 


EC 


EF 


E3 


AO 


E4 


E5 


BD 


El 


2B28- 


EE 


E4 


FB 


E5 


OC 


C5 


ED 


E5 


2B30- 


F4 


F4 


E5 


F5 


F2 


AO 


F2 


E5 


2B38- 


EE 


EF 


EE 


E3 


E5 


OD 


C2 


EC 


2B40- 


EF 


E3 


AO 


ED 


El 


EE 


Fl 


F5 


2B48- 


El 


EE 


F4 


OE 


C2 


EC 


EF 


E3 


2B50 


F3 


AO 


EC 


ED 


E2 


F2 


E5 


F3 


2B58- 


AO 


F3 


F5 


F2 


AO 


E3 


E5 


AO 


2B60- 


E4 


E9 


F3 


F2 


FS 


E5 


AO 


BA 


2B68- 


AU 


OF 


04 


Eb 


F2 


ED 


£9 


EE 


2B70- 


FB 


AC 


AO 


CF 


CB 


00 


C3 


ES 


2B78- 


AO 


E6 


E9 


E3 


E8 


E9 


E5 


F2 



Pom's n° 28 



25 



BPL EOF1 
RTS 

CREFIC2 CMP t$47 

REQ CRBFIC3 

SEC 
RTS 

CREFIC3 LDX PATHNAME 
INC 



; nom exxste dej£ ? 



si oui, on increment* le dernier 
PATHNAME, X / caractSre entre eC 2 en Gvizant 

LDA PATHNAME,X ; los codas ijicordics 
CMP | " ; " 

CREFIC4 

tSDB ; esc-ce an " 

CRFFIC5 



BEQ 
CMP 
BEQ 

STA PATHNAME, X 
CREFIC31 JSR AFFNOM 

JMP CREFIC 
CREFIC4 LDA t"A" 
CREFIC] STA PATHNAME, X 

BNE CREFIC 31 
CREFIC5 LDA 

BNE 



t"0" 

CREFIC40 



RECSTR DFB $8D, $8D, $$D , $SD 

ASC ■ <RETURN> * commencer la reception" 
DFB S9D 

sur ce volume" 



FICINC ASC 
DFB 
ASC 
DFB 

FREEVOL DS 
VHAPBLV DS 
TYPEAPP DS 



"Ce fishier Hjc est incampjc iblc " 
9BD 

(aeul le format TEXT convle/ic)' 

S8D,0 



ASC " 
DFB S8D, SBD 



ASC 
DFB 



<£SO *> renoncer. . - ' 



- QUITTER 



QUITTER JSR 
JSR 
JMP 



TEXT 
ROME 
BASIC 



INPUT 



LDX 

STX 



LDX 
LDA 

INPOINT DEX 
BEQ 
STA 
BNE 



§0 

POSC 



LONG 



INCLAV 
(GBASL) , T 
LNP01NT 



position du mir.ipur 
Installe les points 



MESSREC DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 

DFB 
ASC 
DFB 
ASC 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 



"Rccepcio/i liu fic&iex ." " 



"Nombre de blocs a recevoir : " 

3 

"EncCCcur ; ■ 



"Macintosh" 

5 

"Apple //■ 

d 

"IBM" 

7 

"Serveur Pom's" 
9 

"Azcence du bloc " 

"Oji renonce" 

10 

"Bloc r«£u" 

12 

"Re&nlsslon du bloc demandee" 
12 

"Emetteur renonce" 

13 

"Bloc manquanz" 

14 

"Blocs llbres sur ce disaue : " 

15 

"Terming, OK" 




2NCLAV LDA 
STA 

INCLAV1 LDA 
EOR 
STA 
LDX 

INC LAV 11 DEX 
BNE 
LDA 
BPL 
BIT 

CMP 
BEQ 
CMP 
BEQ 
CMP 
BEX) 
CMP 

BEQ 
CPY 
BEQ 
CMP 
BCC 
CMP 
BEQ 
CMP 
BCC 
AND 
CMP 



*">" 

(GBASL/ , Y 

(GBASL) , Y 
91 

(GBASL) , ¥ 

tsac 

1NCLAV11 
KBD 

INCLAV1 
STROBE 

iS9B 
INESC 
fSBB 

TNRETOUR 
tSFF 

1NRETOUR 
tsau 
INVALID 
LONG 
■ INERR 
I". " 
1NERR 
i"/" 
SLASH 
t"A" 
CHIFFRE 
9*11011111 ; 
§SDB 



I initialise le curspiir 



curseur clignotant 



dosage du scintillemenz 



; esc ? 

; riccne gauche ; 

; del ? 

,* return ? 

; dernier carac ? 

,• oui, alors pas d'autre 

; - t 

; / ? 



uiae ieCcre ? 



convertit minusc en MAJ 
_ it 



2B80- 


AO 


CD 


El 


E3 


AO 


E5 


F3 


F4 


2B88- 


AO 


E9 


EE 


E3 


EF 


ED 


FO 


El 


2B90- 


F4 


E9 


E2 


EC 


E5 


8D 


AO 


AO 


2B98- 


AO 


AO 


A8 


F3 


ES 


F5 


EC 


AO 


2BA0- 


EC 


E5 


AO 


E6 


EF 


F2 


ED 


El 


2BA8- 


F4 


AO 


D4 


C5 


D8 


D4 


AO 


E.I 


2BB0- 


EF 


EE 


F6 


E9 


E5 


EE 


F4 


A9 


2BB8- 


8D 


00 


00 


00 


00 


00 


20 


39 


2BC0- 


FB 


20 


58 


FC 


AC 


DO 


03 


A2 


2BC8- 


00 


BE 


B6 


2C 


AC 


Bl 


2C 


A9 


2BD0- 


AE 


88 


FO 


04 


91 


26 


DO 


F9 


2BDU- 


A9 


A9 


91 


26 


Bl 


26 


49 


01 


PRF.O- 


91 


26 


A2 


2C 


CA 


DO 


FD 


AD 


2BE8- 


00 


CO 


10 


FO 


2C 


10 


CO 


C9 



2BF0- 


9B 


tv 


44 


C9 


86 


FO 


51 


C9 


2BF8- 


FF 


FO 


4D 


C9 


8D 


FO 


6B 


cc 


2C00- 


B7 


2C 


FO 


2E 


C9 


AE 


90 


2A 


2C08- 


C9 


AF 


FO 


OC 


C9 


CI 


90 


OE 


2C10- 


29 


DF 


C9 


DB 


BO 


1C 


90 


49 


2C18- 


CO 


00 


FO 


45 


DO 


08 


C9 


BA 


2C20 


BO 


10 


CO 


00 


FO 


OC 


AA 


88 


2C28- 


Bl 


26 


C8 


C9 


AF 


FO 


03 


8A 


2C30- 


30 


2F 


20 


82 


32 


BO 


A5 


AC 


2C38- 


B7 


2C 


A9 


AO 


91 


26 


88 


10 


2C40- 


FB 


A9 


00 


8D 


8E 


2C 


38 


60 


2C48- 


AD 


Bb 


2C 


FO 


E5 


CD 


B7 


2C 


2C50- 


DO 


04 


A 9 


AO 


DO 


02 


A 9 


AE 


2C58- 


91 


26 


88 


CE 


B6 


2C 


4C 


D8 



2C60- 


2B 


91 


26 


EE 


B6 


2C 


ce 


4C 


2C6B- 


D8 


2B 


8C 


B8 


2C 


A9 


AO 


91 


2C70- 


26 


CC 


B7 


2C 


FO 


03 


C8 


DO 


2C78- 


F6 


AC 


B8 


2C 


A9 


00 


99 


8E 


2C80 


SC 


$8 


30 


08 


Bl 


26 


99 


8E 


2C88- 


2C 


88 


10 


F8 


18 


60 


uu 


00 


2C90- 


00 


00 


00 


00 


00 


00 


00 


no 


2C98- 


QV 


VU 


00 


00 


00 


00 


00 


00 


2CA0- 


00 


00 


00 


00 


CO 


00 


00 


00 


2CA8- 


00 


00 


00 


00 


00 


00 


00 


00 


2CB0- 


00 


no 


00 


00 


00 


00 


00 


00 


2CB8- 


00 


20 


58 


FC 


AO 


00 


B9 


E5 


2CC0- 


2C 


99 


00 


02 


C9 


8D 


FO 


03 


2CC8- 


C8 


DO 


F3 


20 


03 


BE 


C9 


06 



26 



Pom's n° 28 





BCS 


INEHR 


r 


> 6 Z 




dei 






BCC 


INLETTRE 






INVAL1D2 


mi 

LDA 


INVALID3 ; chaSne vide • rien a recopier 
IGBASL) , y ; stoefce la chains 


SlASM 


cpy 


*c 


t 


/ est jutorisc cn premier 




STA 


BUFF IN, Y 




BEQ 


INLETTRE 




caraciere, mals pas apres 




DEY 






BNE 


Onirr nr. J 


i 


un autre / 


INVALID 3 


BPL 
CLC 


Tiff t A f Tf^ - ^ 

INVALID 2 

; quitte avec carry clear 


CHIF FRE 


CMP 
BCS 


t"; " 

INERR 


1 


e'est hien un chiffre ? 
non, e'eac :f<—>? ou bien a 




RT.S 






CPY 


tQ 




e'est le ler carac t 


OUtTlN 


ua 


10 




BEQ 


INERR 




oui, pas de chiffre 


pose 


DS 


1 


fu irro n 


1 FlA 




/ 


sauvc carac 


LONG 


DS 


1 




DF.Y 






le precedent est un / ? 


TPS 


DS 


1 




LDA 


(CDA5L) , Y 














INI 
















CMP 


f/ n 














BEQ 
TXA 


TWERP 




on/ jlnr« pa* o"e chiffre 


Source INTERPOMS.3 




BMI 






OX 









INERR 



JSR BIP 
BCS INCLAV1 



ifffSC LDY 
LDA 

INESC1 STA 
DEY 
BPL 
LDA 
STA 
SEC 
RTS 



LONG 
fn n 

(r,RAST.),Y 

INESCl 
10 

BtJFF TN 



• CATALOG 



CATV 



; esc — > carry set 



JSR 
LDY 
LDA 
STA 
CMP 
BEQ 
INY 
BNE 



HOME 

to 

CMV, Y 
S200, Y 
tSBD 

CAT! 

CATO 



Detnondc Catalog au 
Basle Systeme 
en szockanz Ja command© 
dans buffer clavier 



INRETOUR LDA 
BEQ 
CMP 
BNE 
LDA 
BNE 

INR1 LDA 

INR2 STA 
DEY 
DEC 
JMP 

TNT.FTTRF STA 
INC 
INY 
JMP 

INVALID STY 
LDA 

1NVALID0 STA 
CPY 
BEQ 
INY 
BNE 



POSC 

INERR 

LUNG 

INR1 

#" " 

INR2 

§".- 

(GBASL) , Y 

FOSC 
INC LAV 

(CRASL) , Y 
POSC 

INCLAV 

TPS 
t" ■ 

(GBASL) , Y 

LONG 

INVALIDl 

INVALIDO 



TNVAi.Tm r.nv tps 

LDA tO 

STA BUFF IN, Y 



; ler carac ? 

f oui, pas de rezour 

; si dernier, remplace 

; par e space 

; sinon par un point 



CATl 



OKCATO 
OKCAT 



3ffiche carac 



t on efface curacur 

; ez polnzs rescancs 



CMD 



PP 



$BE03 

H 

OKCATO 

te 

BNE OKCAT 
JSR ERRBUR 
OETRET 
HOME 
LITPREF 
CHOIX 



JSR 
CMP 
BEQ 
CMP 



JSR 
JSR 
JSR 
JMP 



ASC 
DFB 

DS 



"CAT" 
S8D 

1 



• CHERCHE DATE/HEURE 

* CREE FFCHTER 



CREFICH 



BCLC 



; finir la chaine pat 



JSR 

DFB 

DA 

LOT 

LDA 

STA 

DEY 

BPL 



ML I 

GETTIME 



93 

SBF93, Y 
DATECRE, r 

5 CLC 



Attend Return 

RGaffiche pre)£ixe 
retourno au menu 



; repupere J 'heure 
; s'il y a une carte 
f horlogc (non teste/ 



2CD0- 


FO 


04 


C9 


08 


DO 


03 


20 


I)? 


?n«30- 


D? 


31 


60 


04 


no 


on 


14 


00 


2DB0- 


00 


BD 


47 


2F 


FO 


06 


20 


ED 


2CD8- 


31 


20 


IE 


32 


20 


58 


FC 


20 


2D18- 


02 


00 


00 


AD 


30 


2D 


3D 


44 


2DB8- 


FD 


E8 


DO 


F5 


AD 


IE 


2F 


4A 


2CE0- 


EA 


2F 


4C 


D8 


20 


C3 


CI 


D4 


2D50- 


2D 


20 


00 


BF 


CA 


43 


2D 


90 


2DC0- 


4A 


4A 


4A 


29 


07 


09 


BO 


20 


2CE3- 


3D 


00 


20 


00 


DF 


82 


00 


00 


2D56- 


00 


60 


AD 


30 


2D 


3D 


6D 


2D 


2DC8- 


ED 


FD 


A2 


00 


BD 


4D 


2E 


FO 


2CF0- 


AO 


03 


B9 


93 


BF 


99 


OA 


2D 


2D60- 


20 


00 


BF 


DO 


6C 


2D 


90 


03 


2DD0- 


06 


20 


ED 


FD 


E8 


DO 


F5 


A9 


2CF8- 


88 


10 


F7 


20 


00 


BF 


CO 


02 


2D68- 


20 


D2 


31 


60 


02 


00 


00 


00 


2DD0- 


Bl 


2C 


IE 


2F 


10 


02 


A9 


B2 


2UQQ- 


2D 


60 


01 


bE 


Ji» 


00 


00 


00 


2D70- 


00 


AD 


30 


2D 


8D 


7F 


2D 


20 


2DE0- 


20 


ED 


FD 


A9 


AO 


20 


ED 


FD 


2D08- 


00 


00 


00 


00 


00 


00 


20 


00 




00 


BF 


CC 


7E 


2D 


60 


01 


00 


2DE8- 


AD 


IE 


2F 


2D 


OF 


8D 


IE 


2F 


2D10- 


BF 


Dl 


1A 


2D 


90 


03 


20 


D2 


20 80- 


20 


58 


FC 


AO 


2F 


A9 


IF 


20 


2DF0- 


A9 


AF 


20 


ED 


FD 


C8 


B9 


ID 


2D18- 


31 


60 


07 


00 


on 


00 


00 


20 






OB 


20 


FR 


DA 


20 


00 




2DF8- 


2E 


09 


90 


20 


ED 


FD 


CB 


IE 


2D20- 


00 


BF 


C8 


2B 


2D 


90 


03 


20 


2D90- 


C5 


19 


2E 


90 


03 


20 


D2 


31 


2EQQ- 


2r' 


DU 


F2 


A3 


BD 


20 


ED 


FD 


2D28- 


D2 


31 


60 


03 


6E 


35 


00 


10 


2D98- 


A9 


OF 


8D 


ID 


2F 


AD 


ID 


2F 


2F.08- 


CF. 


in 


PF 


in 


90 


20 


IE 


32 


2D 30 


00 


AD 


30 


2D 


8D 


44 


2D 


20 


2DA0- 


OA 


OA 


OA 


OA 


AO 


S3 


ID 


2E 


2E10- 


20 


58 


FC 


20 


EA 


2F 


4C 


D8 


2D38- 


00 


BF 


CB 


43 


2D 


90 


03 


20 


2DA8- 


BD 


IE 


2F 


29 


OF 


F0 


59 


A2 


2E18- 


20 


02 


00 


ID 


2E 


00 


00 


00 



Pom's n° 28 



27 



DA 
RTS 

PAHLST Ut'B 

ADPATHN DA 
ACCESBT DS 
FILETYPE DS 
AOXFLTP DS 

STORAGE DS 
DATECRE DS 
HEURCRE DS 



JSR MLI 

DFB CREATE 

PARLST 



; cree Je fichier 



LIT FICHIER 



I 

PATHNAME 

1 

1 

2 

1 

2 

2 



OKL 



IDA REFNUM 

STA RETNUMff 

JSR MLI 

DFB READ 

DA PARLST *J 

BCC OKL 
RTS 



I lit un bloc do 512 
; caracceres 



• AJUSTE FIX DE FICHIER 



* GET EOF 



GfiTWNG JSR 

DFB CBTEOF 

DA PAREOF 

BCC OKGET 

JSR ERREUR 

UKGET RTS 

PAREOF DFB 2 

REFNUMG DS 1 

EOF Ds' 3 



; longueur logique du 
! fichiec ? 



SETFINF IDA 

STA 
JSR 
DFB 
DA 

BCC 
JSR 

OKSLTkXJF RTS 
PARLST7 DFB 
RRFNUM7 DS 
P0SEOF DS 



REFNUM 

REFNUM7 
MLI 
SETEOF 
PARLST7 

CKSETEOF 
ERREUR 

2 
1 
3 



en fonction de Ja longueur 

loglqu0 ropue. 

A U&fauLf la ioiiyueur 

physique (n X 522) serai c 

catenae 



• OUVRE FICHIER 



* CLOT FICHIER 



OUVREFIC JSR MLI 
DFB OPEN 
DA 
BCC 



ouvre 2e fichiec 



OKO 

PARTSTO 



REFNUM 



PARLSTO 
OKO 
JSR ERREUR 
RTS 

.1 

PATHNAME 
FILEBUF 
1 



DFR 
DA 
OA 
DS 



CLOSEFIL LDA 
STA 
.TSR 
DFB 
UA 
RTS 

PARLSTC DFB 
REFNUNC BF5 



REFNUMC 
H7.T 
CLOSE 
PARLSTC 

1 




ONLINE 



• ECRIT FICHIER 



• 








DHL 


JSR 


BOMB 












LDY 


l>MESONL 


EF 


LDA 


REFNUM 


; 4crlt un bloc ri<» 




LDA 


$<MESONL 




STA 


REFNUMW 


512 cacoct&rea 




JSR 


STROOT 




JSR 


MLI 






JSR 


CRGUT 




DFB 


WRITE 






JSR 


MLI 




DA 


PARI, ST W 






DFB 


ONLINE 




BCC 


OKW 






DA, 


PARLSTN 




JSR 


ERREUR 






BCC 


ONLINE 


OKW 


RTS 








JSR 


LRREUR 


PARLSTH 


DFB 


4 




ONLINEC 


LDA 


ns 


REFNUMW 


DS 


1 






STA 


CNT 




DA 


BUFNC 




DHL I NED 


LDA 


CUT 




DA 


512 






ASL 






DS 


2 






ASL 

ASL 














as:*. 





; clot couc fichier 
; sans pxeciser de n' 
; de reference 



; quels sunt lera 

/ volumes en ilgnes 



/examine les 15 X IB octets 



SE20- 


00 


00 


00 


00 


00 


00 


00 


00 


2E28- 


00 


00 


00 


00 


00 


oo 


00 


00 


2E30- 


00 


00 


00 


00 


00 


00 


00 


00 


2E38- 


00 


00 


00 


00 


00 


00 


00 


00 


2E40- 


00 


00 


00 


00 


00 


00 


00 


00 


2E48- 


00 


00 


00 


00 


00 


oo 


00 


00 


2E50- 


00 


00 


00 


00 


00 


00 


00 


00 


2ES8- 


00 


00 


00 


00 


00 


00 


00 


00 


2E60- 


00 


00 


00 


00 


00 


00 


00 


00 


2E68- 


00 


00 


00 


00 


00 


00 


00 


00 


2E70- 


00 


00 


00 


00 


00 


00 


00 


00 


2E78- 


00 


00 


00 


00 


00 


00 


00 


00 


2E80- 


00 


00 


00 


00 


00 


OQ 


00 


00 


2E88- 


00 


00 


00 


00 


00 


00 


00 


00 



2E90- 


00 


00 


00 


00 


00 


no 


on 


00 


2E98- 


00 


00 


00 


00 


00 


00 


00 


00 


2EA0- 


00 


00 


00 


00 


00 


00 


00 


00 


2EA8- 


00 


00 


00 


00 


00 


00 


00 


00 


2EB0- 


00 


00 


00 


00 


00 


00 


00 


00 


2ED8- 


00 


00 


00 


00 


00 


00 


00 


00 


2EC0- 


00 


00 


00 


00 


00 


00 


00 


00 


2EC8- 


00 


00 


00 


00 


00 


00 


00 


00 


2ED0- 


00 


00 


00 


00 


00 


00 


00 


00 


2ED8- 


00 


00 


00 


00 


00 


00 


00 


00 


2EEQ— 


00 


00 


00 


00 


00 


00 


00 


oo 


2EE8- 


00 


00 


00 


00 


00 


00 


00 


00 


2EF0- 


00 


00 


00 


00 


00 


00 


00 


oo 


2EF8- 


00 


00 


00 


00 


00 


00 


00 


00 



2FO0- 


00 


00 


00 


00 


oo 


00 


00 


jO 


2F08- 


00 


00 


00 


00 


00 


00 


00 


00 


2F1 0- 


oo 


00 


00 


00 


CO 


00 


00 


00 


2F1 8- 


00 


00 


00 


00 


oo 


00 


00 


8D 


2F20- 


D6 


EF 


EC 


F5 


ED 


Eb 


F3 


AO 


2F28- 


E5 


EE 


AO 


EC 


£9 


E7 


EE 


ES 


2F3Q- 


AO 


BA 


8U 


AD 


AD 


AD 


AD 


AD 




AO 


AD 


ad 


AB 


An 


AD 


AD 


AD 


2F40- 


AD 


AD 


AD 


AD 


AD 


8D 


00 


DO 


2F48- 


EF 


F2 


F4 


AO 


00 


AO 


CC 


E5 


2F50- 


E3 


F4 


AO 


00 


20 


00 


BF 


C4 


2F58- 


60 


2F 


90 


03 


20 


02 


31 


60 


2F60- 


OA 


6E 


35 


00 


00 


00 


00 


00 


2F68- 


00 


00 


00 


00 


00 


00 


00 


00 



28 



Pom's n° 28 





TAX 






LDA 


BUFONLIN, Y 




STA 


LNG 




AND 


ftOOOOllll 




3EQ 


ERR 




LDX 


#0 


ONLINEG 


IDA 


MESON0,X 




BF.Q 


ONLTNF.R 




jsit 


COUT 




2WX 






BNE 


ONLINEG 


QNLINEH 


LDA 


LNG 




LSR 






ItSR 






LSR 






LSR 






AND 


ttooooom 




ORA 


ftlOHOOQO 




JSR 


COUT 




LQX 


to 


ONLINEE 


LDA 


MESONl,X 




DEQ 


ONL INEF 




JSR 


COUT 




INX 






BNE 


ONL I NEE 


ONL INEF 


LDA 


/"I" 




BIT 


LNG 




BPl 


ONLINE1 




LDA 


t n 2« 


ONLINE! 


JSR 


COUT 




LDA 


4" - 




JSR 


COUT 




LDA 


LNG 




AND 


4SF 




STA 


LNG 




1 1 in 
LiLin 


# / 






K-UUl 


ft CP 

/if e 








LDA 


aUtVNLlN, X 




ORA 


ttiooooooo 




JSR 


COUT 




ftF.C 


LNG 




BNE 


AFF 




LDA 


tSSD 




JSR 


COUT 


ERR 


OF.C 


CNT 




BPL 


ONLINED 




JSR 


tSEXRBT 


VADEB 


JSR 


HOME 




JSR 


LITPREF 




JMP 


CHOIX 


fAKLSTN 


DFB 


2 




DFB 







OA 


RflFDNT. TtJ 


BUFONLIN DS 


256 


CNT 


US 


1 


LNG 


DS 


3 


MESONL 


DFB 


S8D 




ASC 


"Volumes cn 




DFB 


SOD 



/longueur = ? 



ASC " 

DFB S8D r 

MESON ASC "Port " 

DFB 

MESONl ASC ° Lect 

DFB 



GET FILE 1N£V 



I ricup&rc n' olot 



;envole 'drive' 



; teste si drive 1 ou 2 



GFI 


JSR 


ML I 




DFB 


GETFINFO 




DA 


PARLSTG 




BCC 


OKG 




JSR 


ERREUR 


ORG 


RTS 




fAHLSl'G 


DFB 


5A 




DA 


PATHNAME 


ACCBITG 


DS 


1 


FILETYC 


DS 


1 


AUXXXPG 


DS 


2 


STORAGG 


DS 


1 


BLQCKUS 


DS 


2 


HEURDAT 


DS 


8 



" CHANGE PREFZXE 



MOD PR 



;a££iche nam volume 



MOD2 



JSR 


HUML- 


JSR 


LITPREF 


LDA 


*7 


STA 


CV 


JSR 


VTAB 


LDA 


to 


STA 


CH 


LDY 


*>MESMOD 


LDA 


i<MESMOD 


JSR 


STROUT 


LDA 


$38 


STA 


LONG 


LDA 


*9 


JSR 


GBASCALC 


INC 


GBASL 


JSR 


TNPUT 


BCS 


OKCH 


LDX 


TPS 


BNE 


MO DO 


JSR 


BIP 


BEQ 


MODPR 


SIX 


PATHNAME 


INC 


PATHNAME 


BEQ 


MOD ML I 


nrn 


GRASL 


LDA 


(GDASLJ , Y 


SNX 




STA 


PATHNAME, 


DEY 




DEX 




BPL 


MODS 



recuperes les infos 
sue un Llchler 



lent /6rr1r/rmam 

cype dc flchicr 

param auxlliaire (Ing par ex; 

Cype de stockage 

nb de blocs affecc&s 



; esc T 



; sLoche long 



2F10- 


00 


00 


20 


58 


FC 


20 


EA 


2F 


2F78- 


A9 


07 


85 


25 


20 


22 


FC 


A9 


2F80- 


00 


85 


24 


AO 


2F 


A9 


D5 


20 


2F88- 


3A 


DB 


A3 


26 


8D 


87 


20 


AH 


2F90- 


09 


20 


47 


F8 


E6 


26 


20 


C7 


2F08 


2D 


BO 


34 


AC 


B8 


2C 


DO 


05 


2FA0- 


20 


82 


32 


FO 


D3 


8C 


6E 


35 


2FA8- 


EE 


6E 


35 


FO 


OC 


C6 


26 


31 


2FBU- 


26 


C8 


99 


6E 


35 


88 


88 


10 


2FB8- 


F6 


20 


00 


BF 


C6 


D2 


2F 


90 


2FCQ- 


Q£ 


48 


20 


FB 


DA 


68 


20 


D2 


2FC8- 


3 J 


20 


IE 


32 


4C 


72 


2F 


4C 


2FD0- 


10 


2E 


01 


6E 


35 


CE 


£f 


Fb 


2FD8- 


F6 


E5 


El 


F5 


AO 


FO 


F? 


FB 



2FE0 


B6 


E9 


FO 


E5 


AO 


BA 


8D 


8D 


2FE8- 


AF 


00 


20 


00 


BF 


C7 


D2 


2F 


2FF0- 


90 


03 


20 


D2 


31 


AO 


03 


85 


2FF8- 


25 


20 


22 


FC 


A2 


00 


BD 


22 


loon- 


30 


FO 


06 


20 


ED 


FD 


E8 


DO 


3008- 


F5 


AD 


6E 


35 


3D AE 


35 


A2 


3010- 


01 


BD 


6E 


35 


09 


80 


20 


ED 


3018- 


FD 


E8 


CE 


6E 


35 


DO 


F2 


4C 


3020- 


FB 


DA 


DO 


F2 


FB 


E6 


E9 


F8 


3028- 


E5 


AO 


00 


20 


BB 


30 


A9 


FF 


3030- 


A2 


03 


9D 


67 


35 


CA 


10 


FA 


3038- 


AO 


02 


98 


AA 


Bl 


18 


9D 


6B 


304O- 


35 


CA 


88 


10 


F7 AO 


05 


0E 


3048- 


6B 


35 


2E 


67 


35 


88 


10 


F7 



3050- 


A0 


01 


0E 


6B 


35 


2E 


68 


35 


3058- 


88 


10 


F7 


AO 


03 


0E 


6C 


35 


30 60- 


2E 


68 


35 


88 


10 


F7 


AO 


03 


30 68- 


QE 


GO 


35 


28 


65 


35 


Q8 


10 


30 70- 


P*7 


AO 


01 


OF 


6D 


35 


2E 


69 


30 78- 


35 


88 


10 


F7 


AO 


05 


OE 


6D 


3080- 


35 


2E 


6A 


35 


88 


10 


F7 


AO 


3088- 


03 


as 


67 


35 


91 


1A 


88 


10 


3090- 


F8 


A5 


18 


C9 


01 


DO 


07 


A5 


3098- 


19 


C9 


16 


DO 


01 


60 


20 


A4 


30A0- 


30 


4C 


2E 


30 


18 


A5 


18 


6? 


30A8- 


03 


85 


18 


90 


02 


E6 


1 9 


18 


3UB0- 


Ab 


1A 


69 


04 


85 


1A 


90 


02 


30B8- 


E6 


IB 


60 


A 9 


00 


85 


18 


85 



Pom's n° 28 



29 



I 



M0DML1 


JSR 
DFB 


ML I 

STPREFTX 


CODEO 


STA 
DEX 


Dl.X 




DA 


PARLSTCP 




DPL 


CODEO 




BCC 


OKCH 










PHA 






LDY 


92 ;PREND 3 OCTETS 




JSR 


CROUT 




TYA 






PTJi 






TAX 






JSP 


ERREUR 


CODE1 


LDA 


(CUMPTNC) , Y 




JSH 


CETRET 




STA 


S1,X 




JMP 


MODPREF 




DEX 




OKCH 


JHP 


VADFR 




DEY 




PAPLSTCP 


DFB 
DA 


1 

PATHNAME 




BPL 


CODE1 


MESMOD 


ASC 


"Nouveau prefixc :" 




LDY 


#5 ;LES TRANSFORMS 




DFB 


$8D, S8D 


moE3 


ASL 


SI ,-DE Dl A D4 




ASC 


n/n 




ROL 


Dl 




DFB 


J 




DEY 




t 








BPL 


CODE3 


■ LIT PRFFTXF 










* 








LDY 


fl 








LAJ1J r. 4 


*l A 1, 


It ■ 


f ' T £) □ r* ■"■ 


7 CD 

Jift\ 

DFB 


NLI ; le lie 
GTPREFIX 




ROL 
DEI 


D2 




DA 


PARLSTCP 




BPL 


CODE4 




BCC 


LIT 










TCD 

JoK 


ERREUR 


CODES 


LDY 
ASL 


93 

si 




IDA 
5TA 


$3 

cv 




ROL 


D2 




JSR 


VTAM 




BPL 

LP 7 


CODES 

£J 




LDX 


to 






CJ 


tira 


IDA 
BEQ 


MESSPR, X 

LITOO 




HOI. 


ni 




JSR 


cour 




BPL 






INX 












BNE 


LITO 


CGOE' 


LDY 
ASL 


H 

m a 


UTOO 


IDA 

STA 


PATHNAME 
LNGPATHN 










LDX 


91 i 1 'a f fichu 




- - ■ 


■* — r7 


LiTJ 


LDA 


PATHNAME, X 










ORA 


9%1 0000OO0 




LD1 


#5 




JSR 


mi it 


VUUUm 


■ cr 

.-. -T - 






INX 






r 


nj 




DEC 


PATHNAME 




BEV 






BNE 


LIT! 




SSL 


CODES 




JMP 


CROUT 








MESSPR 


ASC 


"PcifSxc ■ 




i&y 


93 




DFB 





CODE82 


— A 










STA 


ICCMPTC) f Y 



A TRAITER 



• CODER UN BLOC 



CODEBLOC JSR IN STOOD 



DEBCVD LDA ffFF ; OCTETS DESTINATION A llXXXXXK 

LDX 93 



DET 

BPL CCOESI 

LDA CCMPTKC 

CMP 91 

BNE CODE* 

LDA COMPTNC+1 

CMP 9S16 



fON A FINI LES 512 ? 



30C0- 


1A 


AS 


14 


85 


19 


A9 


17 


85 


30C8- 


IB 


60 


20 


BB 


30 


AO 


03 


A2 


3000- 


03 


tsi 


1A 


9D 


b? 


35 


CA 


88 


ion»- 


10 


F7 


AO 


OS 


4E 


6A 


35 


6E 


3050- 


6D 


35 


88 


10 


n 


AO 


01 


4E 


30E8- 


69 


35 


6E 


6D 


35 


88 


10 


F7 


30FO- 


AO 


03 


4E 


69 


35 


6E 


6C 


35 


30F8- 


88 


10 


F7 


AO 


03 


4E 


68 


35 


3100 


6B 


6C 


35 


38 


10 


F7 


AO 


01 


3108- 


IE 


68 


35 


6E 


6B 


35 


88 


10 


3110- 


F7 


AO 


05 


4E 


67 


35 


6E 


6B 


3118- 


35 


88 


10 


f7 


AO 


02 


B9 


6B 


3120- 


35 


93 


18 


AH 


10 


FH 


A5 


18 


3128- 


C9 


01 


DO 


07 


A5 


19 


C9 


16 



3130- 


DU 


Ul 


60 


20 


A4 


30 


4C 


CD 


3138- 


30 


20 


BB 


30 


A9 


00 


8D 


87 


3140- 


31 


A9 


01 


20 


9A 


31 


AD 


FA 


?74fl- 


25 


09 


CO 


20 


9A 


31 


49 


3F 


3150- 


20 


9A 


31 


20 


9A 


31 


EE 


F7 


3158- 


07 


AO 


00 


Bl 


1A 


20 


9A 


31 


31 60 


18 


6D 


87 


31 


8D 


87 


31 


E6 


3168- 


1A 


DO 


02 


E6 


IB 


AS 


1A 


C9 


31 70- 


AC 


DO 


E3 


A5 


IB 


C9 


19 


DO 


3178- 


DD 


AD 


97 


31 


09 


CO 


20 


9A 


3180- 


31 


A9 


AO 


8D 


F7 


07 


60 


00 


3188- 


AO 


OA 


A9 


C6 


20 


A8 


FC 


AD 


9J 90- 


00 


CO 


C9 


9/3 


FO 


03 


88 


no 


3198- 


Fl 


60 


48 


A2 


00 


Al 


06 


29 



31AU- 


10 


FO 


F8 


68 


81 


08 


60 


A2 


31AS- 


00 


Al 


06 


29 


08 


DO 


02 


18 


31BO- 


60 


Al 


08 


29 


7F 


38 


60 


A9 


31BS- 


00 


8D 


DO 


31 


3D 


Dl 


31 


20 


31C0- 


A7 


31 


90 


01 


60 


EE 


DO 


31 


31C8- 


DO 


F5 


EE 


Dl 


31 


DO 


FO 


60 


31D0- 


00 


00 


8D 


ID 


32 


20 


FB 


DA 


31D8- 


20 


FB 


DA 


A9 


OO 


85 


24 


A9 


31E0- 


14 


85 


25 


20 


22 


FC 


A9 


21 


31E8- 


20 


ED 


FD 


A9 


AO 


20 


ED 


FD 


31FO- 


20 


82 


32 


AO 


FF 


C8 


B9 


E2 


31F&- 


33 


CD 


ID 


32 


FO 


04 


C9 


00 


3200- 


DO 


F3 


C8 


B9 


E2 


33 


10 


FA 


32 OS- 


20 


ED 


FD 


C8 


B9 


E2 


33 


30 



30 



Pom's n° 28 



C0DE9 



BNE CODE 9 



JSR CODE INC 
JMP DEB COD 



fUUi 

;NQN ; LNCREM 



CODEINC CLC 
LDA 
ADC 
STA 
BCC 
INC 

C0DE1 CLC 
LDA 
ADC 
STA 
BCC 
INC 

CODE1 1 RTS 

INITCOD LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



COMPTNC 
93 

CO HP T.WC 
CODE2 
COMPTNC*! 



COMFTC 
M 

COMPTC 
C0DE11 
COMFTCrl 



40 

COMPTNC 

COMPTC 

t>BUFNC 

COMPTNC* 1 

t>BUFC 

COMPTC*! 





Octets non codes 

$79 



c 


1 


; 


1 


o \o 


1 



XU 1 1 1 X 1\0 1\0\l 1\1 












1 


c 




x\i\o 


o\o 1 





o 


$64 


$44 



Octets cod&s 
Le prlncfpe retenu pour le codage 



DECODER UN DLOC 



DF.RimF.C iJSR TNircnn 



DEBDECVD LUX 
LDX 

OFC0OF.1 T.DA 



$3 
13 

tmMPTC) , Y 



STA D1,X 
DEX 
DEY 
BPL 



LDY 

DEC0DE2 LSR 
ROR 
DEY 
BPL 



DEC0DE1 

#5 
04 
S3 



LDY il 

DEC0OE3 LSR D3 

ROR S3 
DEY 

BPL DEC0DE3 

LDY /3 

DECODE* LSR D3 

ROR S2 

DEY 

BPL DECODE* 



LDY 13 

DECODES LSR D2 

ROR S2 
DEY 

BPL DECODE 5 

LDY H 

DECODES LSR 02 

ROR Si 
DEY 

BPL DECODES 

LDY #5 

DECODE7 LSR D% 

ROR SI 
DEY 

BPL DECODE! 

LDY t2 

DEC0DE8 LDA Sl f Y 

STA (COMPTNC) , Y 
DEY 

DEL DECODES 

LDA COMPTNC 

CMP II 

BNE DECODES 

LDA COMPTNC*! 

CMP 9S16 

BNE DECODE 9 

RTS 

DECODE* JSR CODEINC 

JMP DEBDECOD 



* ENVOI UN tiLVC 



ENVBLOC JSP. INITCOD 
LDA tO 



3210- 


F7 


A3 


AO 


20 


ED 


FD 


A3 


21 


3218 


20 


ED 


FD 


38 


60 


00 


20 


FB 


3220- 


DA 


A9 


15 


85 


25 


20 


22 


FC 


3228- 


A9 


00 


85 


24 


AO 


32 


A9 


BE 


3230- 


20 


3A 


DB 


2C 


00 


CO 


10 


t'B 


3238- 


2C 


10 


CO 


AD 


00 


CO 


C9 


no 


3240- 


FO 


09 


C9 


IB 


FO 


OA 


20 


82 


3248- 


32 


BO 


£8 


20 


55 


32 


18 


60 


3250- 


20 


55 


32 


38 


60 


A9 


14 


20 


3258- 


22 


FC 


20 


42 


FC 


60 


AO 


AO 


3260- 


AO 


AO 


AA 


AA 


AA 


AO 


AO 


CI 


3268- 


FO 


FO 


F5 


F9 


E5 


FA 


AO 


F3 


3270- 


F5 


F2 


AO 


AO 


BC 


D2 


C5 


D4 


32 78- 


D5 


D2 


CE 


BE 


AO 


AO 


AA 


AA 



3280- 


AA 


OQ 


38 


48 


8A 


48 


AO 


40 


3288- 


98 


6A 


AA 


CA 


DO 


FD 


2C 


30 


3290- 


CO 


88 


DO 


F4 


38 


68 


AA 


68 


3298- 


A8 


60 


20 


BR 


30 


AO 


00 


87 


32 A 0- 


18 


A2 


00 


DD 


25 


35 


FO 


13 


32A8- 


E8 


E8 


EO 


42 


DO 


F5 


E6 


18 


32B0- 


DO 


ED 


E6 


19 


A5 


1 9 


C9 


16 


32B8- 


DO 


E5 


60 


E8 


BD 


25 


35 


91 


32C0 


18 


DO 


EB 


A9 


15 


20 


ED 


FD 


32C8- 


20 


39 


FB 


20 


58 


FC 


20 


11 


32D0- 


2D 


AO 


00 


B9 


E7 


32 


FO 


09 


32D8- 


2C 


30 


CO 


20 


ED 


FD 


C8 


DO 


32E0- 


F2 


20 


IE 


32 


4C 


00 


70 


80 


32E8- 


AO 


AO 


AO 


AO 


AO 


DF 


DF 


DF 



32F0- 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


32F8- 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


3300- 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


3308- 


DF 


DF 


SD 


AO 


AO 


AO 


AO 


AO 


3310- 


20 


09 


0E 


i4 


05 


12 


10 


OF 


3318- 


0D 


13 


P0 


70 


on 


09 


OE 


Of) 


3320- 


14 


05 


OC 


20 


20 


20 


20 


16 


3328- 


20 


31 


2E 


30 


20 


8D 


8D 


8D 


3330- 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


3338- 


AO 


A8 


E3 


A9 


AO 


DO 


EF 


ED 


3340- 


A7 


F3 


AO 


A6 


AO 


C3 


DO 


AO 


3348- 


AD 


AO 


Bl 


B9 


B8 


B/ 


8D 


8D 


3350- 


SD 


0D 


AO 


AO 


AO 


AO 


AO 


D3 


3358- 


EF 


F5 


F2 


E3 


E5 


AO 


DO 


F2 
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STA 




LUA 




JSR 




LDA 


NUMRlfiC 


ORA 


9*12 000000 


JSR 


ENWl 


EOR 


jcir 
f »jr 


JSR 


FN'/O T 


JSR 


ENVOX 




C7P7 


LDY 


f V 


T.HA 


//TIMD'TV* 1 V 


J 5 ft 


ENVOI 






ADC 


CHFCldilM 




CHFCK^tJM 

. n nlaflH - - . - 








tl*VJ 


T NC 


CnMPTC-t 1 


UN VI LDPt 


(.Vflr J w 


CMP 


# SAC 


BtiE 


rut//"! 

if* » f 




f T IM M '1 T ' * 1 


CMP 


/SI 9 


RNE 




r.n* 




ORA 


/ til 000000 


JSR 


£WV0I 


LDA 


#5A0 


STA 


$7F7 


RTS 




CHECKSUM DS 


1 


" AIlLNUKt, 1 
fr i 


CP/" 


Mi J Lai* X 


a JO 


W2 Ll/A 


#-5C(5 


JSR 


SFCA8 




KBD 


CMP 


*S9B 


BCQ 


W2 


DEY 




BNE 




U2 RTS 









; envoi code ASCII J 



/ envoi jt bloc 



; ec en coiriplement 

I utiic pour .fac d'allgr.cv pair 

/ flash sur bas ecran 
; charge un caract 

i 1 'cnvvie 



• en envoi* fifli pn Eaut 



„• efface bas ecran 



ENVOI PHA 

ENvnn inx tn 

LDA < STATUS, X) 

amu itOOOlOOOv ; attenlre liberation de 

BEQ ENV0I1 ; la carte avanc envoi 
PLA 

STA IDATA, X) 
RTS 



■ RF.CFVDTR UN CARAC DANS I.'ACC 
* CARRY CLE1AR SI PAS DE CARACT 



on revient bredouille 



RECOIT LDX iO 

LDA (STATUS, X} 

AND 0*00001000 

BtfE OK 
CLC 
RTS 

OK LDA (DATA, X) / on a cu un eorjcc 

AMD fOllUIll 
SEC 
RTS 



* RECEV01R 1 CARAC 

* SEC SI RECV 

* CLC SI PAS RECTI AVUKT X TPS 



REC01T1 LDA 10 

STA STBEC 

STA STRSCtl 

H£CU1T11 JSH RECQIT 

BCC RECOIT2 
RTS 

RECCITS IMC STREC 

BSE PECDITll 

ItK S7REC+1 

BUT RECCIT21 
STS 

STREC DS 2 



* ENVOYER CARACTERE DE L 'ACC 



33 60- 


EF 


C3 


CF 


C4 


C5 


AC 


AO 


ED 


3368- 


EF 


E4 


E5 


AO 


E4 


A7 


E5 


ED 


33 70- 


F0 


EC 


EF 


E9 


8D 


3D 


AO 


AO 


33 78- 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


3380- 


AO 


E4 


El 


EE 


F3 


AO 


AO 


DO 


3386- 


EF 


ED 


A? 


F3 


AO 


EE 


DB 


AO 


33 90- 


B2 


B8 


AO 


AO 


AO 


AO 


AO 


AO 


33 98- 


8D 


3D 


8D 


AO 


AO 


AO 


AO 


AO 


33A0- 


D2 


E5 


F6 


F5 


E5 


AO 


DO 


EF 


33A8- 


ED 


A7 


F3 


AO 


DA 


AO 


A3 


Dl 


33B0- 


AB 


AO 


B3 


B9 


AO 


B5 


Bl 


AO 


33B8- 


B2 


B4 


AO 


B4 


B3 


SD 


8D 


AO 


33CQ- 


AO 


AO 


AO 


AO 


OF 


DF 


DF 


DF 




nr 


HF 


DF 


DF 


nr 


OF 


(IF 


DF 


33D0- 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


33D8- 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


DF 


33E0- 


DF 


00 


03 


08 


27 


28 


2F 


5A 


33E8- 


4E 


C5 


F2 


F2 


E5 


F5 


F2 


AO 


33F0 


E4 


A7 


El 


E3 


E3 


FD 


F3 


AO 


33F8- 


E4 


E9 


F3 


Fl 


F5 


E5 


06 


07 


3400- 


45 


46 


C9 


EE 


F4 


F2 


EF 


F5 


3108- 


Fb 


El 


E2 


EC 


E5 


04 


2b\ 





3410- 


E9 


F3 


Fl 


F5 


E5 


AO 


F0 


F2 


3418- 


sr 


F4 


Fa 


EV 


FB 


40 


44 


CE 


3420- 


EF 


ED 


AO 


E9 


EE 


E3 


EF 


F2 


3428* 


F2 


£5 


E3 


F4 


11 


48 


49 


C4 


3430- 


F.9 


F3 


Fl 


F5 


F.5 


AF 


F.4 


F.9 


3436- 


F2 


E5 


E3 


F4 


EF 


F2 


F9 


AO 


3440- 


F3 


El 


F4 


F5 


F2 


FB 


4E 


DO 


3448 


F2 


EF 


F4 


FD 


E7 


FD 


AO 


ES 


3450- 


EE 


AO 


EC 


E5 


E3 


F4 


F5 


F2 


3458- 


E5 


57 


C4 


E5 


F5 


F8 


AO 


F6 


3460- 


EF 


EC 


F5 


ED 


B5 


F3 


AO 


E8 


3468- 


EF 


ED 


EF 


EE 


F9 


ED 


E5 


F3 


3470- 


7D 


D6 


EF 


EC 


F5 


ED 


E5 


AO 


34 78- 


F3 


El 


F4 


F5 


F2 


FB 


7E 


cc 


3480- 


E5 


AO 


F4 


F9 


FO 


E0 


AO 


A7 


3488- 


C3 


El 


F4 


El 


EC 


EF 


E7 


F5 


3490 


E5 


A7 


AO 


E5 


F3 


F4 


AO 


E9 


3498- 


EE 


F4 


E5 


F2 


E4 


E9 


F4 


IF 


34A0- 


DO 


F2 


EF 


C4 


CF 


D3 


AO 


E5 


34A8- 


F3 


F4 


AO 


E9 


EE 


E4 


E9 


F3 


34B0- 


F0 


E5 


EE 


F3 


El 


E2 


EC 


E5 


34B8- 


00 


C5 


F2 


F2 


E5 


F5 


F2 


AO 



34C0- 


BF 


BF 


BF 


00 


A9 


38 


8D 


7C 


54C8- 


04 


A$ 


6B 


8D 


7D 


Q4 


AH 


81 


34D0- 


BD 


7E 


04 


A9 


7C 


85 


42 


85 


34m- 


3C 


AS 


04 


85 


43 


85 


3D 


85 


34E0- 


3F 


A9 


7F. 


85 


3F. 


38 


4C 


11 


34E8- 


C3 


AO 


02 


B9 


F5 


34 


20 


9A 


34F0- 


31 


88 


10 


F7 


60 


68 


39 


IB 


34F8- 


AO 


02 


B9 


04 


35 


20 


OA 


31 


3500- 


88 


10 


F7 


60 


6F 


39 


IB 


AO 


3508- 


02 


DO 


13 


35 


20 


9A 


31 


88 


3510- 


10 


Fl 


60 


67 


39 


IB 


20 


5E 


3518- 


24 


4C 


66 


24 


20 


71 


2D 


20 




U/ 


35 


4C 


IE 


32 


00 


AO 


88 


3528- 


CO 


CB 


CI 


A7 




A 5 


AD 


80 


3530- 


DC 


8E 


FB 


8F 


FD 


9D 


FC 


Al 


3538- 


DB 


A3 


A3 


A4 


DD 


90 


E5 


91 


3540- 


E5 


94 


E9 


95 


E9 


99 


EF 


9A 


3548- 


EF 


9E 


F5 


9F 


F5 


CE 


AA 


CF 


3550- 


AA 


C7 


A2 


CB 


A2 


D2 


A2 


D3 


3558- 


A2 


C9 


AE 


D4 


A7 


D5 


A7 


DO 


3560- 


AD 


Dl 


AD 


D6 


AF 


CA 


AO 
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ERREOR 



STA 


CODERR 








JSR 


CROUT 








JSR 


CROUT 


Bit 


TYA 




LUA 


to 




PHA 




STA 


CH 




TXA 




LDA 


t20 




PHA 




STA 


cv 




LDY 


tS40 


JSR 


VTAB 


tiltl 


TYA 




LDA 


tS21 




ROR 




JSR 


COUT 




TAX 




T.nA 


fit n 


B1P2 


DEX 




JSR 


COUT 




BNE 


BIP2 


JSR 


Bit 




BIT 


HP 


LDY 


t$FF 




DEY 




INY 






RNF. 


B TP1 


LDA 


ERREURS, Y 




SEC 




CMP 


CODERR 




FLA 




BEQ 


ERREURO 




TAX 




CMP 


90 




PLA 




BNE 


ERREUR1 




TAY 
RTS 




INY 










LDA 


ERREURS. y 


# 







BPL 

ERREVR2 JSR 
INY 
LDA 
BHX 
LDA 
JSR 
LDA 
JSR 
SEC 
RTS 

CODERR DS 



ERREURO 
COUT 

ERREURS, Y 
ERREUR2 
fa n 

COUT 

§sn 

COUT 



' DECODE ACCENTS MAC 



DECODMAC JSR 
LDY 



DECCC 



DEC1 



DEC3 



* ATTEND RETURN (OU ESC) 



JSR 
LDA 
STA 
JSR 
T.DA 
STA 
LDY 
LDA 
JSR 



CROUT 
SZ1 

cv 

VTAB 
to 

Clt 

t>MESRET 

KMESRET 

STROUT 



LDA 
LDX 
CMP 
BED 
INX 
INX 

cpx 

BNE 
INC 
DNE 
INC 
LDA 
CMP 
BNE 
RT5 



DECZ 



RESET 



RET1 



BIT KBD 
BPL RET1 



RESET 



BIT 
LDA 
CMP 
BEQ 
CMP 
DEQ 
JSB 
BCS 

JSR 
CLC 
RTS 



STROBE 

KBD 

9$D 

RET3 

tSIB 

RET* 

Bit 

RET1 



RESET! 



LDA 
JSR 
JSR 

JSR 
JSR 

LDY 
LDA 
BEQ 
BIT 
JSR 
INY 
BNE 



INTTCOD 

to 

(COMPTNC) , Y 

to 

ACCENT, X 
DEC2 



#66 

DEC1 

COMPTNC 

DECOO 

CUM t TNC* 1 

COMPTNC*! 

tS16 

DECOO 



INX 

LDA ACCENT, X 

{COW TNC I , Y 



STA 



BNE DEC3 



t21 

COUT 
TEXT 

HOME 
CLOSEFIL 

10 

MESRES1, Y 

RESET2 

BP 

COUT 

RESET1 



; utile s£ Apple Ilgs et 
I 8Q colonn^B peace i v&o , 
/ une page de pub. . . 



JSR 
SEC 
RTS 

T.DA 
JSR 
JSR 
RTS 
ASC 
DFB 



t?n 

VTAB 
CLKEVt 



Appuyez aur <RETURN> 



JSR GETRET 
JMP DEBCO 



MESRESi 



DFB 
ASC 
DFB 
ASC 
INV 
DFB 
ASC 
DFB 
ASC 
DFB 



S8D 



38D 



■ INTERPOMS MINI TEL V 1.0 - 
SBD, SOD, SBD 

(cj Pom's t CP - 1987" 
S8D r S8D f SBD, SBD 

" Source PcoCODE, mode d'enplni" 

SBD, SBD 
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ASC ■ dans Pom's n' PS " 

DFB SSD, SBD, SSD 

ASC " Revue Pom's ; (1) 33 51 24 43" 

DFB $8D, S8D 

ASC " n 

DFB 



BPL DECONNE1 
RTS 

SDECONNE DFB 103,57,27 

MOVTKCR JSR MOUTCR 

JMP MOUTK 



MESSAGES D 'ERR EUR 



CDC 



JSR CLOSEFIL 
JSR DECONNE 
JMP CETRET 



ERREURS 


DFB 


3, B, S27, S2B, S2F r S5A, S4E 




ASC 


"Erreur d'acces disqve" 




DFB 


6, 7, $45 r $46 




a si? 


"Tnrrauvable* 




DFB 


4,$2D 




ASC 


"DisQue protege" 




DFB 


$40, $44 




ASC 


"Worn f nmrrprt ■ 




DFB 


17, S4B,S49 




ASC 


"Dtsque/dlreccory satuxi" 




DFB 


S4E 




ASC 


"Protege en lecture 9 




DFB 


557 




ASC 


"Deux volumes homonymex" 




DFB 


S7D 




ASC 


"Volume sat tire" 




DFB 


$7E 




ASC 


"Lc type 'CatdJajut*' cat Utterdlt* 




DFB 


S7F 




ASC 


"ProDOS est indispensable 9 




DFB 







ASC 


"Erreur ???■ 


* . . 


DFB 





* INTERFACE //c 
* 


DEUXC 


LDA 


4S38 




STA 


S47C 




LDA 


IS6B 




STA 


4470 




LDA 


tSBl 




STA 


S41E 




LDA 


4S7C 




STA 


442 




STA 


S3C 




LDA 


H 




STA 


S43 




STA 


f3D 




STA 






LDA 


/S7E 




STA 


S3E 




SEC 




* 


JMP 


SC311 ; auxmove 


* DIVERS 













• CORRESPONDAJVCE MAC /APPLE // 

* QUELQUES CODES SEULEMEIJT 



DFB 


0, " - 


; pas 


DFB 


136, "i" 




DFB 


203, "A m 


Jl 


DFB 


167, 




DFB 


165,'-' 


- . 


ZFB 


141, V" 




DF3 


142, 




DFB 


143 r m e m 




DFB 


1S7, "d* 




Z-F5 


2*1, ''' 




Zt= 


163, 




ZFB 


164. a S m> 




2*3 


144, 


; 6 


Z:z 


145, -e- 


i 


ZTz 


14a. *!' 


; I 


ZFS 


143 r -i- 


s i 


Crg 


751, m o' 




ZFB 


154, 'o' 


<* 


Zfz 


153, 'W 


/ 3 


ZS3 


259, 'a' 


; fl 


ZS: 


?06, 


; (E 


ZFB 


2C7, — - 


: a 


Ztt 




> -»* 


D*3 




: * 


on 


215,162 






71 J, 16? 










-f: 


212, J «T 




ZFB 


213,167 


• / 


ZFz 


2G€, *-" 




ZFS 


2CJ, 




zr* 


21 «. "/* 


f 


ZS3 


2£2, * ■ 





CONNECT 


LDY 


42 




CONNECT! 


LDA 


SGO&i&CT, 


v 




JSR 


ENVOT 






DEY 








BPL 


CONNECT! 






RTS 






SCONMBCT 


DFB 


104,57,27 




RETOURN 


LDY 


42 




RET0URN1 


LDA 


S RETOURN, 


y 




JSR 


ENVOI 






DEY 








BPL 


RETOURN 1 






RTS 






SRETOURM 


DFB 


111, 57,27 




DECONNE 


LDY 


42 




DEC0NNE1 


LDA 


SDECONNE, 


Y 




JSP 


ENVOI 






DEY 







D1 


ZS 


| 


D2 


DS 


2 


OJ 




J 


D4 


DS 


2 


SI 


ns 


1 


S3 


DS 


J 


S3 


DS 


r i 


PATHNAME 


DS 


64 


LNCPATHN 


DS 


1 



espace collant 



C'est bien Marcel Cottini qui est rauteur de caii- 

Rwts, programme pani dans le numero 26 de Pom's et non P. 
Neveu, conune le Iaissait supposer la signature. Cette mauvaise 
attribution de paternite est imputable a un montage 'rapide'. 

Rappelons que Marcel Cottini est auteur de plusieurs ouvrages 
concernant PAppIc // (ed. Sybex, P.S.L) et qu'il avait deja signe 
des pages de Pom's. 
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CopyBasFiles, fichiers & VRAM' 



Vous savez que ProDOS cree au- 
tomatiquement un disque virruel 
dans l'espace memoire de la carte 
80 colonnes etendue, disque bap- 
tise /RAM. II est done tentant d'y 
recopier, lors du 'boot', la majo- 
rite des programmes d'unc dis- 
quette ; par la suite, en les recher- 
chant par priorite sur le disque 
virtuel, les temps de chargement 
seront extremement courts. 

Le programme COPYBASFILES 
cree un fichier EXEC qui recopie 
les programmes Applesoft dune 
disquette vers le volume virtuel. 



II ne fonctinnne, bien sur, que 
sur //e ou //c, et se lance par un 
simple RUN. II demande, pour 
chaque programme rencontre, si 
on desire qu'il soit recopie ou 
non. Le fichier EXEC cree 
s'appelle WORKF1LE. Ainsi une 
simple instruction : 

PRINT CHR$(4)"F.XEC 
WORXFILE" 

a la fin de votre programme de 
STARTUP alimentera votre dis- 
que virtuel. 

Techniquement, il ne faut cepen- 
dant pas oublier que le volume 



Francois Dreyfiiss 

/RAM comprend moins de blocs 
disponibles qu'une disquette 
140Ko. . . il sera done parfois ne- 
cessaire d'effectuer une selection 
impitoyable des fichiers qui 
devront etre copies. La ligne 164 
de COPYBASFILES cuiilienl 
rinstruction de test sur le type de 
fichier ; modifiez-la en conse- 
quence si vous ne desirez ne 
recopier que les fichier binaries, 
par exemple. 



Programme 
'COPYBASFILES' 

TEXT : HOME 

1 PRINT "CREATION FICHIER EXEC POUR CCPIE 

DES" 

2 PRINT "FICHIERS BASIC VERS DISQUE VIRTU 
EL" 

3 PRINT ; PRINT 
5 DIM L$ (40) 

10 D$ = CHR$ (4) 

11 PRINT D$ "PREFIX" 

12 INfUT XX$:S$ = MID$ (XX$,2, ( LEN (XX$ 
) ~ 2)} 

13 PRINT "PREFIXE ORIGINE = "XX$ 

15 MM$ - "/" + $$ 

16 PRINT "PREFTXF ARRTVEE (DEFAUT=/RAM/) : 

11 INPUT R$: IF R$ = "" THEN R$ = "/RAM" 

18 MM$ = MM$ + ••/": IF RIGHT$ (R$,l) < > 

"/" THEN R$ = R$ + "/" 

19 PRINT : PRINT "REPONDRE <N> SI FICHIER 

INUTILE" 

SO PR TNT : PR TNT "LECTURE DIRECTORY "S$ 
65 U$ = "/" * 5$ 
86 S$ = U$ 

90 PRINT D$;"OPEN ";S$;" ,T15" 
100 PRINT D$; "READ ";S$ 
120 1 = 

130 ONERR GOTO 400 
7 50 TNPUT L$ (T) 

160 L$(I) = MID$ (L$(I) ,2,19) 
162 T$ = RIGHT$ (L$(I),3) 

164 IF T$ < > "BAS" THEN 168 

165 L$(l) - LEFT$ (L$<I),16) 

167 I = I + 1 

168 REM 

180 GOTO 150 

400 PRINT D$; "CLOSE "rS$ 

405 ONERR GOTO 850 



410 I - I ~ 1 
420 REM I+i BASIC FILES 
510 IF I < THEN END 
512 GOTO 900 

515 REM BUILD AN EXEC FILE USING LOAD 
520 E$ = "WORKFILE" 

530 IF I > = THEN 532 

531 PRINT "PAS DE FICHIER"; END 

532 PRINT D$;"OPEN ";E$; PRINT D$; "CLOSE 
";E$ 

533 PRINT D$; "DELETE ";E$ 
540 PRINT D$;"OPEN ";E$ 
550 PRINT D$; "APPEND ";E$ 
560 J = I 

565 GOTO 590 

570 PRINT "PREFIX, Dl " 

580 PRINT "PREFIX " ; S$ 

590 FOR I = TO J 

600 PRINT "LOAD n fm$;b$(I) 

700 PRINT "SAVE "R$;L$(I) 

710 NEXT I 

725 PRINT "NEW" 

730 PRINT "CAT" 

750 PRINT D$t "CLOSE ";E$ 

800 PRINT "FICHIER ";E$; " PRET" 
810 END 

850 PRINT "ERREUR #" PEEK (222) 

855 POKE 216 e 0: RESUME 

860 END 

900 J - - 1 

910 FOR K = TO I 

920 PRINT "RECOPIER " ;L$ (K) ? 

930 GET Q$: IF Q$ < > "N" THEN 0$ = "0" 

935 PRINT Q$ 

940 IF Q$ = "N" THEN 980 

950 J = J + 2 

960 L$(J) - L$(K) 

980 NEXT K 
985 I - J 
990 GOTO 515 
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Messages et BasicSystem 

Jacques Rey 



Le DOS 3.3 nous avait habitue a 
beaucoup de fantaisies de 
structure et de nombreux 
'patches' Ie rendait souvent 
incompatible avec lui-mcme. 
Avec ProDOS et BASIC. 
SYSTEM ccs petits jeux sont 
finis, place a la rigueur. 
II reste tout de meme un petit 
point qui merite d'etre modifie 
sans toucher & la coherence du 
systeme : nous pouvons franciser 
les messages de BASIC. 
SYSTEM. 

Or, dans ce domaine aussi, les 
choses ont bien change. Dans 
DOS 3.3 il etait facile de 
visualiser l'ensemble des 
messages avec un editeur de 
secteurs (Disk Fixer, Mobby-disk 
de Pom's) et de les modifier 
directement pour peu que Ton 
rcspcctc la longueur des phrases 
d'origine. 

Un tel examen de BasicSystem 
ne revele qu'un ou deux 
messages ; ou sont done passes 
les Syntax Error et autres Path 
Not Found ? 

Les concepteurs du systeme, 
soucieux d'economiser la place, 
ont adoptc unc astuce qui peut 
rendre de grands services au 
programmeur qui doit affithcr 
beaucoup de texte : les mots sont 

codes a raison de deux caracteres 

par octet, chaquc demi-octet 
servant de pointeur de position 
dans uue table alphabclique. 

Un exemple 

Soit la table alphab£tique 
suivante : 



Desassemblage PRINTERR.BAS.S 

(Assembleur ProCODE) 



* Desassemblage de la routine * 

* d'affichage des messages * 
d'errcur dc Basic. system * 

J. fley sepzembre 1986 * 
r * • * . ********* ************ ********* 





org 


S9F89 




cout 




SFDED 


/routine de sortie de caracteres du moniteur 


comptcar 




SBE4B 


/drapeau de comptabllisation de caracteres 


dercar 




SBC36 


;drapeau indiq>iant la pn.iit tan du dernier 








/Cdi'dctere dans "bufimpr". 


butimpr 




$0201 


/les caracteres du message y sont stockes avant 








/1'appel de "cout". 


debmoss 




SBAl 3 


.•table indlquant le dAbut dp rhaqpte- mf.i.ia/yp 






SBA28 


/tablc dc 30 cejracteres et aignea conatituant 1c 


mess cod 




SBA48 


/ table des messages codes 




printer r 


TAY 




;A concienz le code de 1 'errevr ($02 a $15) 




LDX 


debmess, Y 


/pointe sur le d6but du message correspondent 




.7.1R 




iSAut a la routine recupirant les caracteres 


" *•• t'lN 


: impression ez 


recour 


fin 


TJ>X 


comptcar 


/combien de caracteres compte ce message ? 




STX 


dercar 


; je range ce nombre pour plus tard 




JSR 


return 


/un CR A vide pour detacher le message 


do ng 


LDA 


t$87 


/caractere BELL pour fat re un peu de bruit ! 




JSR 


affiche 




printer r 


LDX 


tsoo 


ton so place 3u debut du buffer 


Jboucle 


LDA 


butimpr, X 


;ec un caracz&re svp ! 




JSR 


affiche 






INX 




; caractere suivant 




CPX 


do rc a r 


;n 'est ce point le dernier ? 




BCC 


Jboucle 


/pas c/jtore 


return 


LDA 


t$8D 


;pour ttnlr 11 laut un CR 


a ffiche 


JMP 


cout 


;c'est par li que le tout se retrcuve a l'icran 


DECODE 






debuz 


LDY 


tsoo 






rir 




/initialisation C = 




STY 


comptcar 


/remise A cero du co/nptcur rfc carocCcres 


boucl el 


JSR 


decode 


/saut a la routine qui lit la table des messages 




BNE 


litcar 


/si le 1/2 octet n'est pas nul e'est un des 15 








;prt*mif*rs rrarar.teres de la table. 




JSR 


decode 


/ai non on rccupcec lc 1/2 octet ouivont 




ORA 


IS1U 


/auquel on ajoute $10 pour lire 1 'un des 15 








/caracteres sulvants de la table. 


11 tear 


TAY 




.•le r&&ultat de ci—de$$<i* xf*rt de pni nte\tr de 








/tabic. 




LDA 


caract, r 


/et valla un caractere ! 




BEQ 


sortie 


/si NUL e'est la fin du message 


range 


T.ny 


romp-tear 






DTA 


bufimpr, Y 


/on range lc caractere CrouviS dans lc tampon 



$1000 : 00 CI C2 C5 C9 CA CC CD CE CF DO D2 D3 D9 AO 00 
caractere : ABEIJLMNOPRSU esp 

position :012345678 9ABCDEF 
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BNE bouclel ;branche toujaurs 



sortie RTS ,-rerour i J 'e>/ivoyeur pour affichago 

decode LDA messcod,X /recuperation d'un octet representant 2 caracteres 

BCS micas ;C = 1 c'est le tour du 2 erne caractere 

BED tabul /I 'octet est nuJ Je suivant est une tabulation 

LSR 
LSR 
LSR 

LSR /pour ne conserver que la partie haute de 

/I 'octet. 

S£C /posit ionne C pour la recuperation de la partie 

/basse. 

RTS 

zabul inx /lecture de 1 'octet suivant 

LDA messcod,X /cet octet est considers comme une tabulation 

STA comptcar /il esc place- dans "comptcar" 

INX /puut lire les uaftivL&tcs xulvniiLa 

BNE decode /branche toujours 



nib^s 



INX 
AND 
CLC 
RTS 



.■prepare X pour 1a 2*ctur* Wii couple de rararr&rf.s 
t$OF /pour ne conserver que la partie basse de 1 'octet 

/pour la lecture de 1'occet suivant 



Et le message code ci-dessous : 

$1100:29 85 9D BE A$ IE CP 

Chaque demi-octet donne la 
position d'un caractere ce qui 
nous donne : 

BONJOUR POM S 

Nous avons utilise sept octets 
pour treize caracteres, soit 
presque moitie moins. 
En fait, l'economie n'est pas 
toujours aussi importante pour 
deux raisons. 

D'une part, il faut terminer le 
message par un demi-octet 
pointant sur un caractere nul pour 
permettre k la routine de decodage 
de comprendre que la phrase est 
terminee (le F du dernier octet de 
l'exemple pointe sur la valeur 
00). Dans le cas d'un message 
comportant un nombre pair de 
caracteres et espaces il faudra 
utiliser un octet supplemental. 

D'autre part un demi-octet ne peut 
adresser que quinze caracteres (la 
valeur zero est exclue, nous 
allons voir pourquoi) ce qui est 
peu pour constituer des phrases 
complexes. Ajoutons done seize 
autres caracteres h la table, 
auxquels nous accederons de la 
fagon suivante : des que la routine 
dc decodage rencontre un 
demi-octet egal S zero, elle 
recupere le demi-octet suivant et 



lui ajoute la valeur $10. La valeur 
du pointeur s'etend alors de $01 & 
$16 soit 30 caract&res ou signes 
(la valeur $10 est exclue) ce qui 
suffit i\ la majeure partie des cas. 

Dans Basic. System, nous 
trouvons en $BA28 la table de 
caracteres et signes, en 
$BA4/$BB46 la table des 
messages codes et en $BA13 une 
table qui donne le debut du 
message en fonction du code de 
celui-ci. 

Ces tables sont exploitees par une 
routine appelee TRINTERR' 



situee I partir de l'adresse $9F88, 
que vous trouverez ici 
d^sassemblee et commentee 
(assembleur ProCODE). 11 suffit 
de placer le code de Terreur dans 
l'accumulateur et d'effectuer un 
JSR $9F88 pour afficher le 
message correspondant, les codes 
valides vont de $02 a $15, de 
plus le code $24 affiche le 
copyright Apple. 

Ces quelques elements 
pcrmcttront i\ ccux qui le desirent 
de modifier ou franciser les 
messages facilement. 



Comment 
utiliser Pom 3 s ? 

four les lecteurs qui ont pour la premiere 

fois Pom's dans les mains, void 

quelques iUmenis pour en uiiliser plus 

rapidement le content*. 

Chaque num&ro de Pom's est accompagnS 
dc maniirc optionncllc d'unc disquette 
regroupant tous les programmes* 
disquette disponible par correspondance. 

Si vous n'avez pas la disquette, saisissez 
les programmes Basic et sauvegardez les 
sur une disquette DOS ou ProDOS selon 
indication dans ('article par : 
SAVE NOM__DE_PROGRAMME 
Pour saisir Us recapitulations de codes 
machine (issus des sources en 
assembleur), passcz cn monitcur par : 
CALL -151 

puis entrez les codes ainsi : 



2000 : A2 14 86 08 A2 60 66 09 

et non pas comme cela : 

2000- A2 in 86 06 A2 60 86 09 

Rcvcnez alors au Basic en faisant 
CTRL-C. L'ordre de sauvegarde est 

indiqu6 au d6but dc chaque re" capitulation, 
A la place de la recapitulation, vous 
pouvez saisir le source en assembleur si 

vous disposez d'un programme 

assf.mhlftur (Lisa, Merlin, Procode, 

Toolkit...). Assemble!. Le code gingri 
est identique a celui de la recapitulation. 

Si le programme est icrit en Pascal, 
vous devrez le saisir avee I'Editcur Pascal 
(menu principal Pascal, demandez 'E'). 
Compile?, puis exScutei en faisant X. 

Si vous avez la disquette Pom's 
(actuellement encore formalie en DOS 
3.3), plusieurs cas se prisentent i 

Le programme fonctionne sous DOS 3.3, 
faites simplement : 

RUN PROGRAMME 

ou : 



BR UN PROGRAMME 

selon qu'il s'agit de Basic ou de 
programme en Idngage machine. 
S'il fonclinnne xnux PrnDOS . 
convertissez-le a ce format en ulilisant 

'CONVERT de la disquette Systeme ou 

en utHisanl la disquette 'Utilitaires 
Systime' dans I'option 'Copier des 
fichiers'. Maintcnant installs sur une 
disquette ProDOS, le programme sera 
land par : 
- PROGRAMME 

Si le programme est 6crh en Pascal, 
vous le convert irez au format Pascal a 
I'aide de I'utilitaire 'BASIC-PASCAL' qui 
est sur chaque disquette Pom's. Avant 
conversion, ayez une disquette formatie 
Pascal d disposition. 
Bien entendu. si vous vous heurtez a. une 
difficulU dans I'exploitation des 
programmes de Pom's, n'hisitez pas a 
prendre contact avec un technicien au : 
11) 39 51 24 43 

II n'icrira pas vos programmes, muis il 
vous dipannera. 
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Cette fois Gutenberg ri 




Gutenberg et ses assoctes, des gens 
tits ptrfetUuimbLeb au demeurant, 
n'hesitant pas & regarder a la loupe le 
moindre detail, n'avaient pourtant 
fait que la moitie du travail. 

Le pouvoir de ledition c'est bien, 
pouvoir fediter soi-mfcine, c'est niieux. 

C'est d'ailleurs le seul moyen de 
pouvoir parvenir k la vraie liberte d'ex- 
pression. Cela Gutenberg n'y avait pas 
songfi. 

En toute bonne foi, il croyait fer- 
mement dans les vertus de la vis & 
bois et dune imprimerie pour tout le 
monde. 



Chez Apple, nous croyons aux res- 
sources de Tindividu et a l'edition 
personnels. 

Par contre pour creer son atelier, 
iMacintosh a fait comme Gutenberg, il 
s'est associe avec la "LaserWriter" 
rimprimante a laser d'Apple. A la 
seule difference que si 31 assistants 
se bnusnilent autour d'une presse, 
31 Macintosh relife par AppleTalk se 
partagent aisement une LaserWriter. 

Mais, malgre son million d'octets de 
memoire morte (extension LaserWriter 
Plus) etsa resolution de 130 points/cm, 
la LaserWriter ne serait qu'une version 



Gutenberg 1595-1468 
a harent/ Fhapninmti 



tegerement amelioree de la presse en 
bois sans la puissance et les capacites 
graphiques de Macintosh Plus 




Apple Compifler Franrp Avenue fie I'Otfi 



aura pas le dernier mot. 



C'est-i-dire, un mega-octet de 
mfmoire extensible a 4 mega-ociets, 
un nouveau lecteur de disque interne 
double face 800K et en option un dis- 
que dur de 20 mega-octets, ce qui 
permet de stocker des milliers de 
pages de documents. 

Et comme toujours, Macintosh Plus 
met a votre disposition tous ses (ameux 
outils de bureau, pour couper, coller, 
remodeler le texte. choisir les carac- 
tfcres, melanger lexie el dessin, tilt. 




Au commencement de Tuition, 
il y a l'ecriture ; avec des logiciels de 
traitement de texte comme MacWrite, 
Word ou Writer Plus, le vrai probteme 
des autcurs c'cst Inspiration. 



Page Maker 



Le texte si hrillani soit-il ne suffit 
pas. Avec MacPaint et MacDraw pour 
illustrer, tracer des schemas et des 
dessins techniques, dfiflnir des cadres, 
avec un logicicl comme Page Maker 
pour organiser et mettre en page, vos 
rapports d'entreprise, vos formulaires, 
vos manuels, votre journal interne, 
pour ne citer qu'eux. laisseroni de vous 
unc cxccUcntc impression. Et vous 
pourrez toujours tout modifier, y 
compris & la dernifere minute ! 



MacWrite 



MacDrau 



mir. mix. 



Pour Apple, il n'y a pas de petto 
et de grands ecrivains, de litterature 
de bureau et de literature tout court: 
tout le monde est Iog€ 1 la m&me 
enseigne, celle de la quality. 

Avec la LaserWriter, une iinpressiuu 
impeccable est h la port&e de tous. 
Kile vous propose en effet onze 
families de typographies (extension 
LaserWriter Plus ) , imprime sur papier, 
sur caique ou sur transparents et 
fournit des documents dc qualitc 
bromure. 



LaserWriter 



Et si vous voulez vraiment faire 
les choses cn grand, Macintosh peut 
aussi se connecter directement i une 
photocomposeuse d'imprimerie. 




En fait, Apple ne vous offre rien 
de plus que voire imprimeur. sauf 
que vous n'aurez pratiquement plus 
besoin de lui. 

Desormais, e'est vous, Fediteur, 
qui eprouverex la sensation de 
Gutenberg il y a 436 ans lorsqu'il 
contempla son premier document 

C'est ainsi qu'Apple vous offre le 
meilleur de vous-mCme. 





Apple 
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Record Holder 

Vendu jusqu'au 30 septembre aux 
fiiats-Unis au prix introductif de 
$49.95, ce programme devrait au- 
jourd'hui coQter $20 ou $30 de plus, si 
la politique initiate a 6x6 maintcnuc. 
Cest un excellent gestionnaire de 
fichiers sans pretention, que j'ai appris h 
utiliser en moins d'une heure, aide" en 
cela par plus de 100 ecrans d'assistanee. 

Lcs types de mbriques sont : text, 
nombre, monnaie, date, calculi et 
statistique (comptage, lotal et 
moyenne). Champ de texte : 32Ko 
maximum par inforaation. Nombres 
jusqu'a 18 chiffres significatifs. Nombre 
maximum de fiches : limite" par le 
support magndtique (jusqu'a 16 Mo sur 
un disque dur). Importation et 
exportation avec MacWrite. La copie 
d'eeran ci-contre montre bien ce que 
donne Record Holder- 
Nous avons recuperet sans difficult^ et 
en transitant par MacWrite, un fichier 
File de 270 enregistrements. Seul 
probleme de transition : les virgulcs 
dans l'adresse (3, rue du Port) Itaient 
iutcrpr&ccs commc des scparatcurs dc 
zones d'information; il a done fallu, 
dans une seconde passe, les transformer 
en espaces, pour relire le fichier 
proprement dans Record Holder. A litre 
dc comparaison, cc fichier sc trie cn 30 
secondes dans File, et en moins de 15 
dans Record Holder qui, par contrc, ne 
fait des iris qu'en vue de l'impression ; 
heureusement, celle-ci peut eire simulee 
a I'ecran. 

A vantages : 

• il est tres facile de rajouter une 
mbrique ; 

- la misc en page d'une fiche est aussi 
facile qu'avec CX Base ; 

• on peut voir a la fois la liste des 
fiches et une fiche particuliere ; 

• possibility de choisir la police, la 
taille el le style de toute rubrique ; 

• les champs calculus se construisent 
tres facilement ; 

• la gestion d'index averlit des dou- 



* File Edit Recess Report Utilities Font Style Help 



Table of Contents 



Ba2anegue, J.L -Tn de Auteur 
Bernorai, Dyumque - jmtre 
Bessleres, Jicques - Lo 
d 



m 



Liste d'indeH 
double : "auteur" 
et "litre" 



Livre ; 
Traducteur | 
Edition iCEdic-nathan 



Publication : 
Nom de la revue 
voiumei/Numero 



H 

Herz, Dliviel - HAIFA 
Joct, RoIan4 Ordico 
Le Pacha - E.P.E. 

Lu, Cary - Apple MaclntcjAnnee |l 
Michel, Gerard - Basiciu 
Montsarrai, Nicolas - CfJ 
Piard, Christian - Impot 



Tmne2. Herve - Guiae pi 



Thomas, Jul ien - 68000 



References 
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Guide pratique d'EHcel 



Le coin marque 

les variables 
seruant d lndeK 



Remarques 



blons et les tolere eventuellement ; 

• pas de protection, done pas de 
probleme avec un disque dur ; 

• et, enfin, I'apprentissage est tres 
rapide. 

Inconvenients : 

• pas de tri sauf pour l'impression ; 

• l'impression d'^liquettes par 2 ou 3 
de large n'est pas prtfvue ; 

• pas d' importation d'images ; 

• pas de decoration graphique des 
fiches. 

Conclusion 

Ilya peu de critiques a. faire, en regard 
des avantages. Voila done un pro- 
gramme de gestion monofichier de 
grande quality, a un rapport 
perform ance/prix le mettant hors 
concours. 

Software Discoveries Inc., 99 
Crestwood Road. Tolland, CT 06084. 
USA. Version US. 



A B sCenes 

Allium graphismes el sons, ce sont 
trois programmes de niveaux differents 
pour l'appreniissage des letrres ei des 
mots simples aupres des enfants, de 2 a 
4 ans selon la publicity de 3 a 6 ans 
selon la documentation (?). Dans le 
premier jeu. une scene animee illuslre 
chaque lettre de l'alphabet, mettant cn 
jeu un objet ou un personnage ayant 
ceite lettre pour inidale. Dans le 
second, il faut taper la premiere lettre du 
moi correspondant a Timage apparais- 
sant sur l'6cran. Le troisieme jeu 
demande la frappe du mot entier, 



Pages |1 68 grand format 



Contient de nombreuses astuces 
d uti Hsotion d'Excal. Dernier 
chopltre sur les bogues d'Cxcel. 



toujours un mot simple. 
Cette disquette est un bon exemple 
d'outil p^dagogique simple et bien 
ficeld, en particulier par la varidtd des 
animations sur ecraii. A noter que la 
collection de Computeach comporte, 
pour di verses ranches d'ages ei toujours 
au m£me prix, des disquettes 
d'arithmfitique, de jeux de mots, 
d'apprentissage de signes, et mfime de 
creation de sc6nario. Seule ABC 
cependant est disponiblc sur 
Macintosh ; certaines des autre s 
n" existent que sur IBM PC. 
Computeach, 240 Bradley Street, New 
Haven. CT 06511. USA. 
Macintosh -Apple II -IBM PC 
-Prix $39.95. 



Les registres du 

...ou plutOi le contenu des registres du 
MC68000 qui 6quipe votre Macintosh 
Plus, peut etre, comme la memoire 
(voir le numiro 27 de Pom's, page 42) 
visualise* : 

• appuyer sur la touche 
'INTERRUPT' ; 

• taper 'DO' suivie d'un retour-chariot 
— le contenu (en hexadecimal) du 
registre d'adresse DO apparait ; 

• raeme chose pour les autres registres 
de donnees (DO a D7), ainsi que pour 
les registre d'adresses (AO a A7, A7 
6tant le pointeur de pile) ; 

• la valeur courante du registre d'6tat 
peut Sire obtenue en tapant 'SR' 
(Statut Register) ; 

- ccllc du compteur ordinal en tapant 
'PC (Program Counter) ; 

• 'G' provoque le retour au programme 
couranL 
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InterPom's 

Telechargement via MESITEI 

Jean-Luc Bazanegue 




InierPom's 



InterPom's permet la transmission de n'impone quel type de 
fichier ou application, entre deux Macintosh — ou entre un 
Macintosh et un Apple // avec le programme compauble 
propos6 page 15 — en utilisant le modem incorpore* au 
Minitel. Le systerne utilise le mime c3ble que le programme 
du pr6c£dent nuai6ro de Pom's pcrmettant, cntrc autrcs, 1c 
stockage et la restitution des ecrans du Minitel ; si vous n'avez 
pas encore rdalise* ce petit montage, nous joignons a cet article 
un schema qui vous permettra de le r^aliser, le detail du 
montage se trouve aussi dans le nume*ro 27. Si vous ne 
trouvez pas les connecteurs necessaires a la realisation ou si 
votre emploi du temps ne vous permet pas de taire le montage 
vous-mdme, il est ddsormais possible de se procurer un cable 
de liaison Macintosh/Minitel directement a la revue (n'oubliez 
pas de preciser de quel type de Mac il 
s'agit !). Le Minitel utilise" doit etre du 
type 'returnable' (il doit pouvoir 
e*mettre a 1200 bauds), ce qui est la cas 
pour la quasi-majorite* des modeles. 




\ ruDc APPt/fEOZ 

I 53KO/53764 octets 
cree le Mar 28 Mat 1985 



Possibilitcs ct ii mites 
d'IntcrPom's 

InterPom's peut faire passer tous les 
types de fichiers ou applications d'un 
ordinateur a I'autre par le rfiseau 
t£16phoniquc par I'interm6diaire du 
Minitel. Le programme fonctionne 
indiftereinment sur tous les Macintosh : 
128Ko, 512Ko Macintosh Plus, en 
HFS, en MFS, sur dequeues (mtmc 
avec un seul lecteur) et sur disques durs. 
La taille de la mtlmoire vive disponible 
n'a pas d'incidence directe sur la taille 
des fichiers transffrables ; il est ainsi 
possible d'envoyer ou rccevoir unc 
applicarion de 350Ko avec un 
Macintosh 128Ko, ou encore un fielder 
de 8 M6ga (par exemple) si vous 
disposez d'un disque dur. 
Les limites ne sont pas directement 
li6es a Intercom's mais plutOt a son 
utilisation : 

• grace au type d'encodagc utilised, qui 
autnrise des transmissions rapides 
pour ce Lype de logiciel, il faut compter 
environ quinze secondes par Ko 
transmis ; le fichier de 8 Mo precise 
occuperait tout de meme la ligne 
pendant un temps certain. Ce cas 
extreme (on ne transmet pas huit 
millions de caracieres itous les jours !) 
peut constituer une limite. D'un point 



de vue plus pratique, une application 
comme MacPaint est transmise en 12 
minutes, d£lai tout a fait acceptable ; 
• une autre limite - puisqu'il faut en 
trouver une autre — est le fait qu'un 
logiciel prot6g6 le reste apres 
transmission. Ainsi, s'il est possible 
d'envoyer Multiplan & un correspondant, 
le Multiplan recrSe' par InterPom's se 
comportera comme une copie 'normale' 
du logiciel, en reclamant 1'insertion de 
Toriginal a rami recepteur. Gageons que 
cette limite — qui n'en est bicn sur pas 
vraiment une — fera plaisir aux auteurs 
de logiciels. En fait, s'il arrivait que 
certaines protections 'sautent' du fait 
d'une transmission par InterPom's, ce 
ne serait qu'involontaire. 



Mode 




Reception 9CR 



Emission 3€E 



Le programme, qui respecte 
scrupuleuscment le aSlebre 'Macintosh 
User Interface Guideline' est d'un 
emploi aisd ; il faut cependant citer 
quelques points communs a la reception 
et remission. 

Comme vous pourrez le constater, la 
fenStre du haul est utilised pour la 
reception, alors que celle du bas sert 
uniquemcnt a remission. Ces fenetres 
peuvent 6tre de'place'es pour, par 
exemple, rendre plus visible un 
accessoire de bureau. Pour les remettre a 
leurs places respectives instantanement, 



il suffit le faire un *clic* sur ! 
l'autre des barres de deplacesBest e» 
maintenant les touches 'Option' et 
'Commande* enfoncSes. Ceci ne 
modlfie par la selection et Tordre 
courant des fen6tres. 
Avant d'entrcprendre une transmission 
de fichiers, il vous faudra bien stir 
appeler votre corrcspondant, mais aussi 
mettre sous tension le Minitel (apres on 
ne s'en occupe plus), sans avoir oublie* 
la liaison Macintosh/Minitel. 

Pendant la transmission, il convient de 
ne pas raccrocher le combine" 
t6l(5phonique, ce qui vous permettra de 
converser avec votre correspond ant entre 
ou apres les transmissions. 
D y a trois solutions pour passer du 
mode Emission au mode Reception ou 
inverseinent ; 

- selection de ['article du menu Mode ; 

• Commande-E ou Commande-R ; 

• s61ecuon de la fenetre par un 'clic'. 

Reception d'un document 

La manipulation est tres simple : 

• vous choisissez a 1'aide des boutons 
'Lecteur' (ou la touche "Tabulation') 

et *£jecter' le volume sur Iequel sera 
stock6 le document a recevoir. 
InterPom's vous indique le nom du 
volume en ligne, le type de volume 
(disquette ou disque dur) et la place 
disponible, en Ko. F.n cas de manque de 
place generalise' sur les volumes en 
lignes, il est possible d'inse*rer une 
disquerte vierge que le programme se 
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chargera cTinitialiser (aprcs votre accord) ; 
• prcvcncz votrc corrcspondant et cliquez sur le bouton 'Envoi 
des Blocs'. l.e programme connecte le Minitel, se met en 
aitente du recepteur et, des que "l'ami du bout du fil" clique sur 
'Envoi des blocs' (il a environ une minute et demi pour le 
faire, aprfes quoi la liaison est mterrompue), la transmission 
commence. 

Le premier bloc (chaque bloc correspond a 512 octets) est un 
bloc de controle qui contient divers param£tres parmi lesquels 
on trouve la taillc du document, son nom, son type, etc. Des 
que ce bloc est arrive', le programme affiche le nom du fichier, 
sa taillc cii bloc Uc 312 octets el provenance (pour l'instani 
Macintosh ou Apple//). Si le volume en ligne n'offre pas une 
place disponible suffisame pour recevoir la totalitd du 
document, InterPom's vous prlvient et vous avez alors encore 
une minute et demi pour changer de volume sans que la 
transmission soit intcrrompuc. Cc contrdlc 'a priori' 6vitc 1c 
frustrant message 'volume sature"' alors qu'il ne restait plus 
qu'un bloc a recevoir. 

L'application ou lc document rcc,u sera dot6 des attributs qu'il a 
chez voire correspondant (type, icone, nom). Toutefois, si le 
nom du documeul transmis est idemique a celui d'un document 
existant sur le volume re*cepteur, 
InterPom's ajoute automatiquement le 
suffixe '.A' au nom actuel. Ainsi le 
fichier 'File' serait rebaptisfi Tile.A'. 
Si un fichier 'File.A' existait aussi, 
'File* serait rebaptisc 'File.B 1 , et ainsi 
de suite... 



Macintosh 128 au 312 
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Pendant la reception 

Deux 4 6chelles' visualisent la 
transmission cn cours. L'dchcllc 
supfi"rieure (une simple ligne noire) 
rcpr6scule lc bloc de 512 octets alors 
que celle du bas, plus large indique le 
pourceniage de blocs regus par rappon a 
la totality 

II est possible, aussi bien pour 
rfimetteur que pour le recepteur, 
d'interrompre la transmission en cours 
en cliquant sur 'Annuler'. Dans ce cas, 
le correspondant est prevenu, le Minitel 
est de'eonnecte* et, au nom du fichier 
dont la reception 6tait en cours est 
ajouti le suffixe \ INCOMPLETE 

Bien que les operations se fassent dune 
maniere totalement automatique, des 
messages vous inforraent en 
permanence de l'6tat de la reception 
(Liaison avec l'dmetteur, Attente du 
bloc N, Reception du bloc N, 
Re^niission demanded, etc.). 

Reception depuis un Apple // 

Si votre correspondant est muni d'un 
Apple // ct dc la version adequate 
d'InterPom's, il peut vous envoyer des 
fichiers. Deux cas peuvent se presenter : 

• il s'agit dc fichiers dc tcxic. Dans ce 



cas certains caracteres sont recode's 
(e\ e\ a, {, etc.), le bit de poids fort de 
chaque caractfcre est force a et 
InterPom's lui donne le type 
TEXT/MACA e'est-a-dire fichier 
. texte/MacWrite. Ainsi, un double-clic 
sur le fichier cr6e* provoquera le 
chargement de MacWrite, el le 
document sera directement exploitable ; 
• il s'agit d'autres types de fichiers. Le 
contenu est laisse* tel quel et on lui 
donne le type TEXT/EDIT, e'est-a-dire 
le type de Tdditeui utilise; avec, par 
exemple, le systeme de ddveloppement 
68000. Le documenl sera aussi 
utilisable depuis MacWrite (ou tout 
autre programme de traitement de texte) 
mais ne pourra appeler par un 
double-clic que 'Edif. 

Dernier petit detail : un nom de fichier 
issu d'un Apple// est toujours en 
majuscule ; ce n'est pas tres joli et 
preud beaucoup de place. On remplace 
done ies caracteres par des minuscules 
en laissant tels quels le premier 
caractere du nom ainsi que, bien sflr, les 
caracteres speeiaux comme "/' 

Emission d'un document 

l^a partie Emission du programme a de 
nombreux points communs avec la 
section pr6ce*dente, la plus grosse 
difference etant qu'au lieu de choisir un 
volume pour recevoir, on sdlectionne 
un fichier a dmettre. Cette operation se 
fcra avec lc menu Fichier. 



Fichier 



3k^hTeHte seulement... 3€T 



Tout documents... 360 



Termer 



Quitter 



L'articlc 'Texte seulement...' (ou 
Commande-T) fait apparaitre la fenStre 
de selection standard avec sculcmcnt les 
fichiers de type TEXT. L'article "Tout 
documents... ' (ou Commande-O) 
autorise la selection de n'importe quel 
type de fichier, y compris les 
applications. 

D£s qu'un fichier a 6l6 choisi, 
InterPom's affiche son nom, son type et 
son 'createur' (ou APPL pour une 
application), sa taille en Ko et en octets 
ainsi que la date de sa creation. 

Pour le reste, la partie Emission se 
comporte de la mSme fagon que la 
reception. 



l£ menu Edition n'est pas utilise* par le 
programme ; il n'est done validc que si 
un accessoire de bureau, qui pourrai! 
utiliser ces fonctions, est sdlectionne. 
Ceci est aussi valable pour l'article 
'Fermer' du menu 'hichier'. 
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10. 'fto llha-aa) * 




"V s 


It. Ins H'i 






Plehiar * 


Chain* En laslon2 


DC.B 


5. 'Tvpa ' 


Chai no Dal a a : on 3 


DC.B 


3, 'Ko/' 


ChalnaEalaal-on4 


DC.B 


7, ' octata* 


Chain* Emissions 


DC.B 


1, 'cret le ',0 


ChalnaEtatR 


DC.B 


20, 'Ctat da la 






recaption ' , 


ChainaEtatE 


DC.B 


11, 'Ltat aa V 






-aaiiBaion-,0 


ChalnaBaie 


DC.B 


3, "O^* , 


ChalnaCant 


DC.B 


4, 'lO0%*.0 


Tlf r»V"il rin ' 


nr.n 


7. * Tartaur * 


T ! t raBout on? 


DC.B 


7. 'EJactar " 


TitiaBouton3 


DC.B 


17. 'Attant* daa 






bl oca ' 


TltraBo'Jton. n 


DC.B 


' L + t...r.. .... 

13, EBVCi SOS 






bloca ' 


TitraBoutonAnnuIar 


DC.B 


7, 'Annular" 


7y;o7EX7 


DC.B 


'TEXT* 


Craata ■orari t • 


DC.B 


MAC ft' 


CiaaLauxEUlt 


DC.B 


-EDIT' 


CreaCavr 


DS.L 


1 


?ialsg-ua 


OS B 


nwinrll-sn 


^omAccasaolr* 


D5 ,B 


32 


EnragEvanta 


OS .B 


2fl 


S an dl affpoaaia 


DS .L 


1 


BandlaHFlchiai 


DS.L 


1 


BandlaHXdltlon 


DS.L 


1 


BandlaHHoda 


DS.L 


1 


Art iclaj 


DS 


1 


SauvaPorC 


DS.L 


1 


Pointtupr«natr«l 


DS.L 


1 


7 - en- ■_: el: 


DS.L 


1 


OrlvirCourant 


OS 


1 


Raj n d laCa n t ro 1 a 


Dfi.L 


l 


«U-d larnr.r rolal 


□5.1. 


1 


BandlaCOntrola? 


DS.L 


1 


HandlaControlaJ 


DS.L 


1 


BandlaControlalF2 


DS.L 


1 


rtoaVolisia 


D5.B 


VCbKaXNaa*! 


NomFlchlat 


DS.B 


64 


NodiFlehLainacu 


D5.B 


64 


NoaFlchlarHodif 


DS.B 


C4 




DS 


3 


Voluaacour ant 


DS 


1 


DtainaauW 


DS 


1 


PafaaiiBiJaaBa 


OB 


1 


TavponlO 


DS.B 


loFQElSlia 


TaapenTannorailra 


DS.B 


loFOElSli* 


T a. 1 ? po n Ta mpo r al ra F 


DS.B 


loFOElSlia 


DrMamiFlcMae 


DS.B 


1 


DrHanuEdltlon 


DS.B 


I 


DrHanuHoda 


D3.B 


1 


Or So ut on La ct au r 


DS.B 


1 


PaiDaPiaca 


DS.B 


1 


a: 


as. a 


1 


RapwKavGatrila 


Da. a 


71 




Of .B 


« 


CraataurriekEar 


DS.B 


c 


HoaibfaOetata 


DS.B 


10 


TVD«Flchlar 


DS .0 


6 


ChalnaData 


DS.B 


LI 
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Entr* 


or a 


4. ' 


Sort 


DC.B 


5. ' .AOut ' 


"aarponlOEntra 


DS.B 


lbPQUfilia 


Tampon 1 03 or t 


DS.B 


loF-QElSlia 


TaaponSortle 


DS.B 


700 


TaaponEntra 


DS.B 


700 


BBCCLriBBSS 1 


DC 


Jb,2Uo,00,43a 


RauLErfrtaaa2 


DC 


GO, 208.16, 436 


RactEffMaaalS 


DC 


36. 208,76, 456 


Cod* 


OS 


1 


HombiaOctecalO 


DS.L 


1 


HueareBloc 


OS 


1 


Hoftbr«KOHoi> 


DS.L 


1 


koaflraBIocRaeu 


DS.L 


1 


HonbraOctet. Pocu 


DS.L 


1 


HunaroBlocLattra 


DS.B 


c 


Cooaconnoxion 


UC.B 


27,51,104,0 


CvdaD-aw.iuta.Aiun 


DC. 5 


27, 27, 103,0 


CodaOppoaition 


DC.B 


27, 57,111.0 


Pa ct ajtglaR LvaauRB 


as 


4 


RectanalaHlvaau 


DC 


97.333.107.46? 


Ra«ajngiaEF I«c»NiVMu 


DC 


100,334, 106,46 


RectanglaEf f*caNlvaau2 


DC 


98,334.99,461 


HONIOlUf 


04 


I 




OS 


1 


NOeteta 


DS.L 


1 


DrAcarQon 


D3 


1 


Hoatbi mb loci D 


D3 


I 


Hoabr-aDlecaR 


DC 


1 


Ueabr*Bl«e*T 


DS 


1 


NoabraBlocXjeia 


DS 


1 


CoaptaurBloca 


03 


1 


CcaptaurEaaala 


DS 


1 


TableXqulval 


DC.B 


35, 'f 




DC.B 


64, '1* 




DC.B 


91* ••• 




DC.B 


92. *c- 




DC.B 


53. J" 




DC.B 


ISS.'i- 




DC B 


174. '0' 




DC.B 


175 . *a' 




DC.B 


12S, "•• 


Coup ta urTim 1 ng 


DS.L 


1 


HoabiaBD 


OS 


1 


HonbiaBB 


DS 


1 



Cl DC.B 28.'Attente du bloc da control*-' 

C2 DC.B 30, 'fcaceptl'On du bloc da conl :□!«_ 

CIS DC.B 29, "Eaiasion du bloc da controla-- 

C15 DC.B 34, 'Annulatlon dcaandee par 

1' 'araattaur ' 

C19 DC.B 26, 'Annulat Ion deaandaa par la' 

C27 DC.B 3. 'iecapttur* 

C23 LC-B 28. 3- pour pravanlr 1' •ejBBLi.wui.-- 

C16 DC.B 32, ila plat* a»i ca volui 

cJ DC.B 31, 'A&aaptl-an dw fUhiar > 

C4 DC.B 10.' bloca) dapwla an ' 

C5 DC.B 16. 'Attanta du bloc ' 

C6 DC.B 18, 'Recaption du bloc ' 

C20 DC.B 17, 'Emission du bloc ■ 

C7 DC.B 30, '11 noua fast, helas, ranoncer. 

C8 DC.B 22, 'Trananlaalon ternlne*. ' 

C9 DC.B 9, 'Macintosh' 

CIO DC.B R.'AppU Jl" 

CM DC.B i, ' . ' 

C12 DC.B 3, * IBM ' 

CIS DC.D 13, -Oarvaac tern"*' 

Cl I DC.B 1 8. 'Annulnt ion deaandaa ' 

C17 DC.B 26. 'Liaison «vac la receoteur-' 

CJ1 DC.B 24,'Llalaor. avac l"aaatteur_" 

C22 DC.B 9, 'eae essal' 

C24 DC.B 20, 'Mwisiion ----.,-icc 

C25 DC.B 22, ' Confirmation an ---.-> ' 

C26 DC.B 20. 'Annulatlon an cours-' 

C?8 DC.B 15,' (autoutiqua) .' 

C2 9 DC.B 11 , " (demand*).' 

CJO DC.B if,' Bloc) aapuia un ' 

CUT DC.B ' . INOCMPLLl ' 

. ALICH 2 



Rchier 'lnterPom's/2.Asm' 



«a cape ion 
B3R 

ci-n 
MOVE.L 
HOVE 
PEA 
BSR 

Hovr.i 

PEA 



Hoi 



ill** 
KunoroBloo (AS) 

• S00640HE.»*eta«g;laHlv*»auABt=op|A5l 
1106. Bactanal«NivaauH3*bot ton 4A3) 
CodaConnaxlon 

CodaHlnltel 

BaBd loControleS (AS) , - (SP ) 
TltraBoutonAnnuler 
_5etCTltle 

PEA 7anpo*ilOEntra(A» 
oat* viaanufTar 
AttenCeBloeControle 



BWt.S 


04 


SSB 


Ann. u la t ioaAb an do n 


BRA 


Fir-Racept Ion 


84 3SR 


Co da Pi f farenc 


3RA.S 


81 


LecturaSlocCont rola 


BSR 


BloeControla 


HOVE 


Coda (AM.DO 


BEQ.S 


Con. t en uBaa da r 


CHPI 


ICAH_A.D0- 


BHE.a 


81 


BBS 


Annu 1st le-nAfeandon 


BRA 


FlnRacapt Ion 


ai cmp i 


■HACK. DO 


3NE.S 


AttenteBLocCont role 


BSR 


Code Different 


BRA 


Att an taBl ocCont ro la 


ContenuBeadar 


HOVT. B 


TaeponEntre*TypaEaetteur(A51,00 


BNE.S 


15 


BSR 


RacaptionKac 


BRA. S 


FlnRacapt ion 


(3 auo^.B 


81. K 


BSE. 3 


66 


BSR 


fa cape io r_ftpp le 


BRA.S 


rmaa«pt. ion 


Bn StTRQ» 


81. nn 


BNE.S 


87 


BSR 


Reception 13" 


8RA.5 


FlnRacapt ion 


87 BSR 


Raoapt Ion Servaar 


Fin Ra cape ion 


PEA 


CodaDaconnenlon 


BSR 


CodaMlnltal 


HOVE.L 


BandlaControleJ (AS J , - 15?) 


PEA 


Tit ra Bout on 3 



_SatCTltla 

_InitCuraor 

FCA B-cLEr£K»»8l2 

^CraaaBact 

PEA Raet*jigl*£ff aeaHlvaau 

_F rasa Race 

tLh nacta/iQle£ffacaNivaau2 

EraseRact 
HOVE. I vcbQBdr*2,A3 

VoluaaCourant (AS), 05 
vcbVRafTjua (A3) , D5 



HOVE 
CUP 
BEQ.S 

HUVi. L 
BSA.3 

BOB 
BSD 



•1 

(A3), A3 



VoIomSbIv 
AEfTo- 



Cod«Dlffarent 

PEA C24 

B3K AZricnarlj 

TEA Bactangla Efface II lv. 

J t aa aM a H a at 

0*1 l»f*»r*£ 

PEA RactEffHaaa2 

_E rasa Sect 

m 

a»o«pt ■« 



H6VT.-B 

OCT I . H 

BEQ.S 
CKPI.B 
BEQ.S 
CHPI. 3 
BEQ.S 
CHPI. 3 
BHL.3 
85 ST 

HCVZ.L 
BBA.E 

as sr 

HOVE.X 
«J HCVE.l 
LSR.L 
CHP.l, 
3H1.S 
BSR 
PEA 
B3X 
BSR 
BTB 
81 BSR 

WQ« 
RT5 
815 HOVEQ 
BSR 
BEQ 
STS 



Tajrpontntra*Typ*Taxt«Appl» IR^l , 00 
14. -DO 



IS LA, DO 
15 

1513,00 
111 

rj*JUa»Tm*ta2 (Ai) 
CEMtauEHEita,Craat>u2 (?^) 
C7 

ricJilar7a>ta2 (Ail 
CroataurEdlt.Craataur (A3) 
HoabraBlocRacu (A5) , DO 
11,00 

NonbroKON wB(Ai) , DO 
81 

3«ap7 

Clf 

Allien aril 
Tc»po 



10, DO 

OuvairEurarichlar 



■20 


BSR 


AtEantaLlalaonEiBatt.aur 




TST 


Coda (AS) 




BEQ.S 


92 




3SX 


GatTlnar 




HOVE 


Coda|A5),D0 




CHTI 


aSOfl.DD 




SEQ.ft 


■XI 




cur: 


f CAM, DO 




3NC.S 


tata 




BS jt 


Annular lfmEn*c caue 




BBA 


AbajidonRacBot lonApDl" 


■22 


CHPI 


HOT, 00 




BEQ 


PinRacapt ion Appla 


134 


BSR 


CsdaDlffarant 


m 


35 K 


AffichaAttantaSloc 




HOVE 


PNACK,-(SP1 




BSK 


Envoi Coda 




BRA. 3 


tl 




PEA 


at 




BSK 


U ElchaMl 




PEA 


HumaroBlocLat.tra (A5) 



Drawstring 





BSR 


LI raBloc 




HOVE 


crvtafisi nn 

1 — o^j u i n*M j , uv 




BEQ.S 


916 




CHPI 


ICAN_A, 00 




ant. a 


S2J 




B3K 


Annu la 1. Ion Abauidon 




BRA 


Ab an do nR ■ g mp I es n Ap p 1 ■ 


821 


BRA. S 


024 


016 


BSR 


VarlflcatlonBUoe 




HOVE 


Coda (AS), DO 




BEQ.S 


ts 




CHPI 


tD IF, DO 




BNE.S 


8125 




BSR 


AfflchaAUantaBloc 




HOVE 


8ACX,-|SP) 




93* 






BRA 


■2 


825 


Offl 


»CAW_A,D0 




RNF 


• 77 ~ 




■M 


An nu lac lanAban do n 




3RA 


Ab an don Racap L l a nApp 1 a 


•3 


BSR 


MoodaBloc 




TST.3 


FIchlairTaataZIAS) 




BEQ.S 


08 




33 R 


Mod if s FlchlarTa xt «A 


■• 


33n 


SPKi vaaoRa caption 




BSR 


CcritBlocDlaqoa 




UZQ 


84 




RT* 




riiiAavwp . IvnApylv 




MOVE 


BACK, - (SP) 




BBR 


EnvolCoJ* 




Dr.i 


Oa^fPf ntdtai? 




_EraaaRect 




PEA 


ca 




BSR 


UfichaHl 




LEA 


TaaponI0[A5), AO 




HOVX.L 


HoabraOctatRa>cu (A5 ) , lo 




_SatEOF 




■1 


ac 


urAban«3on(A3) 




3PA.3 


AAA2 


Aba. 


idonP-acapelonAppl* 




ST 


DrAianelanlAS) 


ADA* 






BSR 


Farmaturarichlar 




BSR 


LlralnfoFlchXor 




BEQ.S 


03 




RTS 




92 


LEA 


T«nponI0(A5),A0 



• 'TEXT', loFltHrHaat-iarypa(AO) 
craataur (A3) , ioc lusradS'CdCraator(A0| 



HOVE.L 
rTWL.l. 
34eLFLleEnfa 
92 T3T. B Or Abandon (AS ) 

3EQ.6 01 

BSR Ra n&n » a 1 1 i «A 1 ar 

81 BSR HiaeJourVoluma 
BSR Taapo 

Re t o ur Re cap t lo nApp la 
RTS 

Af f 1 chaAt t ant aBloc 

PEA RactE;fl4aaa2 

EraaaBecx 
PEA C5 
BSR AfflchaMl 
PEA HuaaroBlocUtcra(A51 
_0rawStrlng 
RTS 
A_:entafj 

HOVZ.L 1480. D3 
SUBQ 14, SP 
_TlcfcCouni. 
rtOVZ.l. (SP)*,D4 



11 


BSR 


NACXXlU 


•4 


BSB 


Chan gaHuna r c3 1 c-c 


AOP.L 03,01 




MOVE 


C«d«(A3> , DO 


819 


BSR 


Af f icnaA^xancaBloc 


Bl _Sy.atanT«»* 




CHPI 


■6Oa,D0 




iovx 


lACIt,- (SP ) 


SUBQ 84. SP 




BEQ.S 


Lac curaBlocCont rola 




BSR 


EnvelCoda 


JTleXCount 




(34P! 


(CAK.OO 


82 


BSR 


TaacaTlnaOjl 


CHP.L (S?)*,04 




BNE.S 


82 




RP.Q.S 


371 


BHI.S «1 




BSB 


AnnulationEsattaur 




BSR 


An nu la t lonAbaji dc r. 


PEA TaaponlOEntre (A5) 




BRA 


FlnRacapt ion 




BRA 


AbandonBacapt lonAppla 


3SR V3daBuI/ar 


B3 


CHPI 


fCAH 0,00 


828 


BSR 


TestaAnnularR 


RTS 




BSE. 5 


83 




TST 


Coda (A3) 


BlocCentrola 




BSR 


Annulationuciliaaeaur 




BEQ.S 


120 


PEA BactEirMasalZ 




BRA 


FlnRacapt ion 




B5R 


AnnulatiorUt 11 laaiaur 


_» raioSdCt 


13 


CHPI 


*CAM_A,00 




BRA 


ADandonRacapL lonAppla 


PSA C2 
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en 



BIB 

««B 
TST 
BEO-S 
ATS 
HI 
TST 
BtQ.S 

ns 

MM 

DSH 

CHPI.B 

urn 

B5R 
HOVE 

IviImh 

PEA C3 

asm uiichtffi 

i-la hooMcnuritcu (A3) 

^ - : : , - : . _ ; • t c^xiva.i (A3 ) 

•16 

T»«p«-P«r ra-VR lPe*T~tal (A3 1 . M 



AfflahaMl 
filiUllata 
Coo* (AS) 
09 

VarlflcailonSloe 

Cod. (AS) 

II 

fa coda sloe 

#App;«7i:,T«apa.-.rntr»*T7P«Ii*f.*.. |Bj | 
■II 

MlnuaMaJoa 

Long ua ur Soar 1 c hi er Ba cu 
• 7. -(5?) 



3SR 
LEA 

HOVE.L. 
LEA 

MOVE.L 

HUVL 

CLR.L 
BNt 

wwr a 

PEA 



?aapor. ICE--.:r« (AS ) , AC 
I '. _ : 1 1> ; 7 .■ , * " (AO) 
■ craieftS, A3 

i; 

MUrWtUR ■ lereamda IAS) 

;opcior:>»: (aoj 



(A3) .TaapnnTntraxl (AS1 
RactanglaEff atiNivu'j] 
_EraS4>Raci 
CLR.L K0ct«ta(A5) 
LEA Tupon IOE=lc* (AS) , A3 

hove fZ.esCodvtAO) 

_3taEua> Icaeid 
SHE l> 

or>m (AO).DS 
■ tti|U|,U 



BEC 5 

MOVF. 

BRA.S 
HO BSK 

HCVt.L 

movt. 

DIVU 
SUA? 
TAT 
org. a 

■KU 

AD DC 

BBA.S 
3W 
AHDI.L 
HOVE.L 
LEA 
CLA 
_Pack7 
BDVL.L 
Nv<r«Tu 



14 



97 

SPNospraOctata 
HombreOctatAaei; (AS It . DO 

nu.oi 

Dl.DO 
M 



fl.DO 

•7 

DO 

ISFfTF.DO 

Drt.KanbreBlocAaculAS) 

• crateMO.AO 

-1st) 

rSUlMBUUDU,- |SP) 



LEA 

WB B .i 

CHR.l 

"iHr * 

85 S 

TS7 

5EQ.5 

BAA. 3 

SUBQ.L, 

_TJckCo> 

HOVE.L 

MOVE.L 

Ut 

HOLD 

ADD 

H0VX.1. 

Mov .to 
PEVE 
PCVt 
_Llna7o 
CHPI.L 
aii.i 
hqve.l 
m 
UNt.L 
WW 



M 

V«rlfTlBliia 
Coda (AS) 
13 
IS 

14, SP 

IBt 

(SP) • .CoBpcegr7imir.g(A3| 

D3,ICOcc«ESlAS) 

•4,0-5 

#3,D5 

•334. DS 

#SC3t2014X,-(SP) 

D5.-13P) 
IK0i2,-(SP) 

•CB7.05 
II 

I U7 , luRanjCWunL |A0) 

Ta-pojiEntr. . 2 (AS | , Al 

XI. loBoffar (AO) 
IfarraaStart. loP>oaHoda (AO) 





LEA 


HoajFlehlarAacu (AS) . AO 




HOVE.B 


<A0)>,DO 




1X7 


DO 




ADOQ.L 


11, AO 




SUBQ 


42,00 




HOVE.B 


(AO).Dl 




CKP3.B 


l-A'.Dl 




BMI.S 


92 




CHP2.3 


•"Z'.Dl 




sci.a 


•2 




OAI-B 


•32, (AO) » 




BRA. I 


• 3 


■2 


ADDO.t 


• 1.A0 


93 


DBRA 


DO. 01 




rrs 




Lli 


aBlc-c 






HOVE.B 


• 1 . Tanno nEnt rm (AS ) 


•a 


LEA 


TawponlOEntr* (AS) , AO 




HOVE 


*2,caCoda(A0) 




_5taEua 


iHBSd 




BEQ-5 


if 


> r 


MOVE 


•2,-(SPJ 




BSA 


Erraur 




LAltTOSKau I 


16 


LEA 


(AS) , AC 






eaPaxaa (AO) 




HEO-B 


13 



_»yw»B*n 
HOVE ICAH_A, Cudaj (A3 ) 
BTC 
^ aicor.de a 
moye.l »300,DJ 

CUBQ #4 , f.7 

T lafcCeunt 



MOVE.L 

ftUD.L 

BSR 

TST 

BEQ.i 

X>Vt 

BBA.S 

BSA 

TST 

SHE. 3 

SO BO 



ISPJ*.D4 
DJ.DH 

la at •Ann o l mt A 

coa. (AS) 

14 

•CAW_U. Coda (AS) 
■3 

AttamsLlaiaonEaatCeur 

Coda (AS) 

13 

44. SP 



_TlckCount 
Otf.L (SP)#,04 

BIBi.S ffl 

13 BTS 

AnruLBt lonEaatEaur 
huvi »',-OPI 

pca cis 

BSD AJfleAaMl 
>r A P7 ^ 



BSD Uflah*H3 

359 T-rtlaBTTf 

ATS 

PEA C2fi 

BSB A-'*ich«Ml 

PEA A*ctEffHaia2 

_Eras*Kact 

B3B TroiiCAJiCEL 

ATS 

Annulac lonAbapdon 
MOVE #7.-(S?) 
_Sya Saep 
PEA 
B8B 

PEA 

ass 

n*a 

ATS 
T»ol«CA*JCEL 

WTVJ-Q 
01 MOVE 
95 A 
95 A 
DBRA 
ATS 
TCOHACK 

HOVEQ 
11 HOVE 
BSB 
BSA 
30 RA 
ATE 
TroitEOT 

HOVEQ 
31 MOVE 
BSB 
BSB 
DBRA 
XTS 
fiimi lOnila 



C7 

AXCicneni 

C33 

AJflohaHS 
Tml.rAWCtL 



■CA8.-I5P) 
EnvoiCod* 
UnaSacondar 
D5.ll 



•2,D5 
•ACK,-(SP) 
EnvolCoda 
unaaeconda 



12, DS 
•EOT, |SP) 
Envoi Cod • 



MOVX 


i* r.-«p) 




CLR.L 


loPoaOffiBtCAO) 




AB,»P 








Aaad 




LXA 


Ta*pnnirrtnr' (AS) . AD 


PFA 


■ <?rateh70 




SHE 


17 


HOVEC 


• L.DO 


Dr a •(String 


IS 


CLR 


Coda (AS) 


HOVE.L 


DO.loAaqCaunt <A0t 


Q4PI 


H.HoBbr*91ocAacu<2(AS) 


BTS 




LEA 


TaaponSorClalAS) , Al 


BCT.S 


• 11 


Var 


iJTlJUn-g 




HOVE. L 


AL, loBuffa^ (AO] 


PEA 


C30 




BDBQ.L 


H.SP 


HOVE.B 


9 £A6] . 7anponSort is (AS) 


SAA.S 


• 12 




TlckC-ounc 


HOVE 


l( arromstart , ioPoaHoda (A0> 


Bil PEA 


Di 




rWVt.L 


(SP) t,D0 


CLR.L 


lOfOSOIXSBE tAUl 


112 DrBifSErLng 
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D3.04 

TastaAnnulsr 
•2 

AttantaCarBlocOK 

Coda (AS) 

12 

14. SP 



_TlckCou« 

CHP.L 15P)*,D4 

aai.s ii 

CLA -i- (AS) 
42 RTB 

v-. =r _.■ 

LEA Ta-.pwi.rOEnlie(Ai).A0 

dl HOVE O,aaCerfa|A0) 



Hovr a?. -tat) 

BSB Crraa r 

^ExltToShall 

LEA ... 

T57.L ciParaa(AO) 
13 

ll.lelaqCoujitlAOl 
• era- cAB, A3 
A3, loBurrar (AO) 

(: _r -j: J">: lie (AO) 

toPoaCf fa*t (AO) 



BEO.S 
HOVT.L 
LEA 
MOVE.L 
MOVE 
CXK.I. 
_Baad 
■".« 
MOVE.B 

ami 

CMPl.B 
BNE.S 
MOVE 
BSA.S 
CMPl.B 
SHE. 5 
MOVE 
BAA. a 
CMP! .B 
Mir .5 
HOVE 
ATI 
rcttbloe 
KOVE.L 45006201 4E, -ISP) 

H)ova7o 
MOVE.L IS0O6201CO,-(SP) 
_Llna7o 

HOVI. L ILonoua-jr3iocC»6.)IOctati (A5) 
LEA 7aaponI0Sorc (AS) , AO 
CLH.L loConplation (AO) 

ILwuywauiBlwvC'G, IwAaijCwuiiL (AO) 
7a»ponIortl-(A5) , Al 
Al. loSuffar |A0) 
Ifirroaltart. I cPoaHoda (AO) 
loPoaOffaatlAO) 



(A3) .DO 

isir.oo 

4CAN.D0 
13 

4CAN.Coda(A5) 
12 

tACX.DO 
14 

JACK, Coda (A3) 



INACK. Coda (Ai) 



HOVE.L 
LEA 

hovi i 

MOVE 
CLA.L 
Mrltt.ajync 

BEQ.S 11 

HOVE 12,- (SP) 

BSR Erre«r 

BS R :■•:*•■•.:■:.; r 
_tAit3Q3nall 

LEA T«nponI03ciE (AS) ,M 

TBT loAaault(AO) 

BHE.5 12 

»F» - : " : • 

_EraiaAact 

RTS 

MOVE.L loActCount (A0),DS 
CHP.L N0««tfl(A5). D5 
BEQ.S II 
MOVEA.L (AS), AO 
PEA NhlCa(AO) 
_la*tt 

DS.NOctata (Ai) 



flOVt.L 
MOVE.L 
BOB 
LSR 
MULU 
ADD 
MOVE 
MOVE 
_HoveTo 
HOVE.L 

lanHoiaal 
BAA. C 9: 
srMViaULBiiiioB 

MOVE.L 4143B4.DS 



Ctt.DO 



( L.fr 7 -r . 

n*.no 

14, DO 
13,00 
1334,00 
D0,-(SP) 
IS0062.-(SP1 

•S006201CC, - (SP) 



MOVE 

BKE.C 

HOVTO 

OIVD 

MULU 

LSK.L 

HOVE 

sua 

ADDI 
K'tl 
PEA 

_EtaaaBi 

HOVE 

WOVE 

_Hf l ,.Tn 

MOVE 
HOVE 

_Ufl»T0 
RTS 



NoaJ>ra01acaT(A5) , DO 
81 

11. DO 
DO. OS 

BosJtri-aiocEmlB (AS) ,D5 

47, DS 

1121.04 

DS.04 

1333, D4 

D4 ( *act«ngla»lvaa*jAa.lattlAS) 
HactanQlan ivaauns (a!) 

61. 

W. I«r) 
■COOCI , (IP) 

n4.-i«»i 
I5006A.-(5P) 



Ab an do B) Eb i ■ a to n 

BSR 5a«D' 
PEA RectEffH«sa2 
trasoScct 
PEA CI 
BSR Alflcfcertl 
BSD Taraat uraFlc Mat 
sis •iroiauAK.-fcL 
AT 9 

AnnjlatlOBBaeaptaur 
33* Map' 

pea en 

aaa Aifiewu 

PEA C3' 

BSa AfflcfcaM 



50 



Pom's n° 28 



Den FaniaturcriaKlo; 
RBI T^ri1«»rK 
RTS 
•UMMMh 
PEA .'c:.i.::4jj;; 
Eras a Race 



PEA 
BSR 

as a 
asH 

us 

CpEaLaoloJi 

•i xnno 

AD DO 
HOVEQ 
HOVE 
LEA 

cut 

_Pack7 
LEA 
MOVE.B 
HOVE. 3 

H3VE.B 

EOHI.B 

oai-B 

MOVF.R 
HOVE.D 

Lea 

MOVE.L 
LEA 



C26 

Af fleh*M2 

FarsaturaFlehier 

TrolaCANCEL 



• l.N>»rnR1nr. (AS) 

1 1 . H cobr • B lo eEn i ■ ( AS ) 

ID, DO 

NumroBloe(AS) ,D0 

Mum roB 3 ocLa C E r« (ASj ,A0 

-tSPl 

TanponSortl* (A5) , AO 
I50B, (AO) 

HuoaroBlocl (ASJ Data . • .. • • (AO) 

fUauxiorcSjifabucaiool (AO) 

HupiiDDlocfl (A3) | DO 

(Cl»-r«ltol-».DO 

IDau)u~artt,DO 

M, riBbof aior..7 (AO) 

ISFT.DabutBloC'S (AO) 

?aitpanIO(AS),M 

•LoaguaucBIoc, loRaqCount (AO) 

TanponSort ia«rypaE»attaor<A51 . Al 



mcve. a 
ANDT.H 
CM?. 3 
BEQ.S 
S03Q.B 
OMP.B 
BSE.S 
MOVE 
OKA. 3 
96 MOVE 

■RA.E 
Ba PfTBl B 
AKDI.S 
CMP.B 
BNE.S 
CUl 
BIS 



Dl.DO 
14 

11,00 
□ 1.D0 
16 

IPIF,«;«i«(A5| 
IB 

*CAM_A,Cud« (A3) 

•3 

#Slxralbl*a.T&aponEnCr*«KotHwBloc(A5) 
T**ponEntEa-»NotWuniBtoe (*5>,Dt 



ComptaarTlalng (A5) , DO 
DO 

81 

• l.DO 
10, DO 



93 

Lo n qnm ur NoisF i cat a r Re en 
CXR «(3P) 

PEA Hc*JlehlerR»cu(AS) 

_St ring width 

CHrI ISU, |flP)» 

M*.l 82 

HQVRQ 10.04 

LEA HoarichlarRacu(AS3,A4 
HOVE. 3 (A4),D4 
83 HOVE. B ••-•.OlAt.M) 

clr 

PEA Xoerichlsrftaeu (AS) 
_3trlngnidch 



HOVE - L Al , loBu f f er |A0 ) 



nuvt. 

::.?.. ;. 



traACKarX. loroanode |A0 j 
loPoaOf lael. (AO) 



LHP I 

BET. 3 

CUBQ.B 

SGBQ 

BBA.S 

BIS 



fill, (an- 



il. (A4) 
11.04 



IS 



hi* 

3SR 

BRA 

MOVE 

CHPI 

BNE.S 

BSR 

BRA 

LRU 

SHE. 3 

BSD 
BRA 

CH?I 

BHE.5 
ADDQ 
HOVE 
BSR 
PEA 



■9 

AbsndonEnlsBlon 

FlnSmlis'on 

Coda (AS) ,D0 

ICANJl.DO 

08 

ArretEmLaelon 

rLnEnlaslon 

tCAB.OO 

■5 



Annulat S*jnB*c< 
rtnFjalaailon 
•HACK, 00 
87 

II ,CGapt«urEBsals (A5) 
CcmpteurEaaala (AS J . - (S? ) 
AfflchaNunEiial 

(31 
_Dr«KScr:n(j 
BRA 93 
?T 0U!>a »L,CcoptaurDloca (A5) 
BWE 81 

RRR F«,rwar »i-*rirM»r 

HOVEO 10. DO 
RTS 
FlnEjeiaaUon 

HOVEQ #1,00 
R7S 

Fichier 'InterPorn's/A-Asm' 

RocaptlonlBM 
RTS 

RaceptlonSeivaru: 
RTS 



LIHK 

itoviM.b 

AMDI.L 

HOVE 

E»« 

iMnr.x 
oa.B 
LSR 
HOVE. 3 
LSL.B 

oa.B 
MCVT.B 

MUVL.O 

L3A.B 

HOVE.D 

LSL.B 

OCt.B 

HOVE.B 

CLR.B 

HOVEM.L 

BULK 

RTS 



M.IO 

oo-bi.-tsr) 

Oatcl* (a£) .BO 
•J, DO 

*sra.no 

D0.OcLet4tA6l 
11.00 

Octat*(A6),Dl 
14. Dl 
Dl.DO 

□0,0ctetJ(Ab> 
uctet2 (A6j ,u0 
44, DO 

Oct.tl (At) ,D1 

di 

Dl.DO 

D0.Octet2(A6) 
Octet 1 IA6) 
(3P)4.D0-D1 
At 



LINK AC, 40 
HOVt.L a ( Ai.) r AD 
_K111I0. lmad 
BEQ.S 11 

mm «,-(SP) 

33A |tl IBIII 

_Exlc7cEh.aH 
II ONLX A6 

move.l (sp),«(s?i 
ADDO.L 14, 3P 
RTS 

oCsonBrevctatB 



VeiiricatlonBloc 


HOVEO 


I0.D0 


LEA 


Te*aponEntre*TypeEaetteiir(A5) ,A0 


HOVE.B 


?«pontntr.i M (AS J ,D0 


HOVEO 


10,00 


Pt& 


4B.P0 


HOVE 


r. :i ; 


HOVE.B 


T«aponEntra*97 (A5l .DO 


SI AND I . B 


retaralblaa, (A0I 


L5L.L 


18, DO 


ADD. B 


(AO) .. DO 


MOTE.B 


"inponEnt -•*16 (Al) , DO 


DBRA 


m ,ii 


TST.L 


DO 


AND I ,B 


IS l«r»lbIa«.D0 


5SE.S 


• 1 


AMD 1 ,B 


ISUFalblai. (AO) 


HOVE0 


11, dO 


CMP.B 


(AO), DO 


tl MOVE.L 


aO,NombraOctatRacu(A5) 


BEQ.S 




RTS 




?5 HOVE 


* CHECK, Coda (AS) 


ITIltlaWJI 




BRA. S 


■a 




M.n* 


11 HOVE 


NunaioBl-ee (AS) ( D0 


TicXCuuni 


AND! . D 


13 lxTalb las , Dp 


HOVE. L 


(BP» t,Ce— pc.ur7U.lfig (AS 



RTS 
7*ac*Tla>*Ou« 

BnBQ.T 14. SB 

_7lcVCocfit 
MOVE.L (S?)*.D0 
S0B.L 
CMPI.L 
BKI.S 
HOVEQ 
XTS 
el MovEO 

RTS 

it) 9 c «Ann u L er x 

_3,at-»,T— x 

BOSQ 13. 6? 

HOVF 47 ,— (R?) 

PEA EnraqEvanca (AS1 

_CatN«xtEvant 

TS? (SP|* 

BEQ.S RatOorTaBtaAnnulerNona 

91 S0BQ 12, SP 

HOVE.L Enr*>oEv*nca*«vtHou9« (A» ,-|SP) 

ttiA EnragEVatllEBtavtMtaTj <A3) 

CWI llnCoacant, (BP) I 

BHE . S R«pTa af BdbMl •*■» 

HOVIA.L EnraaEvanESt«vCHaCat2IAS),M 

TST.L wRafCan<A4) 

SHE. 5 BaapTafltaAnnularB 

HOVE.L A4,-(SP) 

_5atPort 

rEA finragKvaiiCattvtHauaa (AS) 

_Cloba]7oLocal 

SUDQ.& #2, or 

MOVE.L EnregEvanCef EvtHauoa |A5) ,- fSP) 
HOVT.E. RJ.-(RP) 





BSR 


CooUBloa 


Da 


«dalle« 






PEA 


Band laConC role (AS) 






BSR 


ChQCkSuai 




UUk 


Taaipnnrnrra tT^-paJ-n*.- r — [ l - i , A3 


_rindCpnt j9j 






PEA 


RactEfrMaaaJ 




HOVE 


#170,D5 


TST 


(£P»- 






EraseRsct; 




HOVEQ 


M 


D4 


BEQ.S 


SaapTaacaAiinularR 






PEA 


C20 




HOVEQ 


n 


D3 


SUBQ.L 


12, SP 






BSR 


Af ft chart 1 


•1 


HOVE.L 


0(A3,D4) , - (SP) 


HOVE.L 


RanaiaConcraLa(*o) 


-tspj 




PEA 


HuRcroBLocLaLLra (AS) 




BSR 


Dacodai 


MOVE.L 


Lnrajtvarc i-tunou 


a (A3) 




Dra "String 




HOVE.fl 


f|5P), 0[AJ,UJ) 


CLS.L 


-(St*) 






MJVE 


'L,ccopcaurEsa;ais (A>) 




HOVE. a 


2(3P) . 1 (A3.S3) 


JTraokCsntrel 






B3R 


Eii-vllblwb 




HOVE.D 


3(3P) t 2(A3,D3 l 


TBT 


(*F1* 






asn 


C P>N 1 n au En i a a i on 




ADDQ. L 


■4 


EP 


BEO.S 


BaarTa a t aAnnu lar R 




« 


BSR 


Ac t • n c *B Lo cOR 




AD DO 


14 


□4 


SUBQ.L 


14. SP 






TST 


Codo (A3) 




AON 


13 


D3 


HOVE.L 


Sand: -con si cla (AS) 


-15?) 




BNE.5 


14 




DBRA 


05 


11 


_CatCAa 


'Con 






ADDQ 


IL,CceptaurEasals(A5) 




XTS 






HOVEQ 


42, DO 






CHPT 


IHoGbraHaxEsaal-i.CcspiaurEssals {AS) 


Dscoda> 

Octal] SET 






OBJ, 


(SP)»,D0 






BEQ.S 


16 




B 


3NE.5 


3aap;«at«AanuxarR 






HOVE 


CtaaiptaurEaaala(A3|.-(S?) 


0K«I2 5E7 




9 


HOVE 


tCAHiCod* (A3) 






D3K 


AriicunuR.e.ssa.1 


Oct at 3 SET 




10 


RT3 


wlaaa) 

■ 1 Inl 






PEA 


C2S 


Oc-etd 5ET 




ll 


BoapTaatoAn 





HOVT- 
_Sv8Beeo 
Re t otirT* a ~ eAnn u2 ar Ko nB 
CLR Coda . a i 
RTS 

ChanooHunoroBloc 

ADDQ ll,NamaroSloc(A5) 

HOVEQ 10, DO 

HOVE NumatroBloc (AS) ,D0 

LEA NuB»roB!ocLat.trafAS) 

CLR - (SP) 

_PniA7 

are 

SPHlvaauRacept ton 
HOVEA-L (A53.AO 
PEA ltgxay(A0j 

_p«npat 

HOVE.E 4143B4.DS 

DIVU ..l . = ; (AS) ,DS 

HDLU Munara91o«(AS) ,DS 

TJti . t. «7.D5 

ADD I 4333, D5 

HOVE DS.BactanglaHlvaauRBirlaht (ASI 

PEA RactanglaNlvaauRBfAS) 

_PalntRa« 
Pa^Ksrnal 
HOVE DS,-(5?1 
PR7VE ISUUB4,-OP) 
_Moveso 

MOVE OS, <sr) 
HOVE t900GA,-(3jP) 
_LLaaT« 
BT3 

rervaturaricniar 

LEA TBBipanIO(aO),AO 

_Clua- 

RTS 

Mi«-,T*.nrV^lwaa 

LEA TamDonlOlASj.AO 
CLR . L ioTl latiana (AO) 

MOVE VoliaaCoorRnc (AS) , loVKafNia (AO) 
_n«shVol 
SEQ.S 91 
CLR -(SP) 
BSR Erraur 
•. RTS 

LiralnfoF^chlar 

xaoponiu(A3) . ao 
LEA BuaTlchlarRacu (AS) .Al 
HOVE. I. AI, L=Xi:«>J«B«{AQ) 



Pom's n° 28 





•ovr 


(AS ) . :oVIw!>.-um (AO) 


IS 


HOVE 


#1,DS 


MfJVT 


•MAC*. >(SP) 




CLR.B 


lofl laTypa> (AD) 




s 


■ a -«•-.---• i- ■ 


Bsa 


EnvoiCoda 




CLR 


loFDlrlndanlAO) 


tl 


St BO 


11,04 


BRA. 5 


Bouclal 




catri: 


■Info 




BKE. S 


12 


fu? captions 


ooMac 




BEQ.S 


tl 




MOVE 


•2.35 


PEA 


Cfi 




CLR 


-(SP) 




BAA. S 


FanaLraErraur 


BSR 


AffiehaKl 




Bsa 


Erraur 


12 


:: : : 


11, M 


PLA 


Nuu»Bl6eL*tcr«(AS) 




MOVED 


• I, DO 




BSE. S 


n 


JJrawS 


ring 




n» 






HUVL 


M.OB 


BSR 


LlraBloc 


• I 


HOvTQ 


16, BO 




BAA. 3 




MOVE 


Code (AS), DO 




D.TS 




13 


BSA 




BEQ.S 


Vor 1 1 icae lonfl lodlac 






MOVE 


• 4 .OS 


BBpS 


ICU An 00 




E^A 


Tajai*jnI0(A3),A0 


- -■ - . - r* r ■ - - : 


DUE. 3 


OlfHac 






UU| loAaqCcvnt (AO) 




r_- . 1 


-C«) 


H> 






TEA 


TipponEM r«^Tye*E»*tt*u* (AS I , Al 




HOVt.L 


i*«r '.-Wl 


UJt 


*hafidanlaea[ir lonKac 




HWX.L 


Al. toBuffar (AO) 




MOVE 


DS.-(«> 


Vsilf t oatlooBloottaa 




hove 


If aAcHark. loFoaHoda (AO 1 








Ml 


V-rl fl ra» 




CLR.L 


loPoaOf fi«t (AO) 




MOVE. I 


)SP)-.A2 


MOVE 


Code (AST. DO 




_Mrlt« 






HOVE.- 


A2.AG 


ISO. J 


81 




BEQ.S 


11 




JSLock 




am 


iPir.oo 




CL* 


-(SP r 




HOVE.'. 


IA2J,-(SPJ 


BHE.3 


62 




BSR 


Error 




CLR.L 


-is?) 


BSR 


AfficheAttenteBloe 




9»» 


it;;e'..:t:.r: 




GJ.L 


•WW 


MOVE 


•ACK,-|Sr) 




WVTQ 


#i,oa 




CLR.L 


-ISP) 


BSR 


EnvoiCoo* 




ATS 






_f 


■af 


njk 


Souole 1 


•1 


hoveo 


10. DO 




CLR 


-|3P) 


■2 CHT1 


JCA»_A, DO 




RTS 






W/t 


IL3I, ~ (ip) 


DUB 


DlfHaa3 


•at 






rti. t 


-I") 


ISA 


Annulet lorAH «j"i«ri 




UK* 


-r-;.- - • - . I' ; 




_5-.ooAlart 


BU 


Abando nlacept lonKac 




LEA 


'■-■:■'.«:"■<-. (A50 ,U 




HOVE 


|SP}*, DO 


11 BSR 


Decode Bloc 




HQVT.L 


: 111 II (AO) 




KuVL . 1 


A2,A0 


» 93 R 


spNlvtauRvcvpCion 




HOVE 


Volt*«Cou»nc (AS) , :oVB»fHur (AO) 




budLocr 


BSR 


EcritBlocDlaqu* 




Craata- 




n 


UNLX 


AS 


BCO.S 


14 




3EQ. S 


Nauva^uTlcMarOUvart 




HOVX.L 


(SP),21SP) 


R7S 






CHP1 


1-41,00 




ADOQ. 1 


•Z.5P 


14 SDBQ 


ll,HoaDr*BO|AS) 




SHE. 5 


11 




ATS 




BSC 


HUBaroBlOCHaC 



bsr 

BU.I 
MOVE 

BSR 

HOVEO 
RT5 



fcmui lstant 

• • '• 
».-(«») 
Erreu r 
11,00 



NowvaauricnlerOuvarl 
MOVEO 10,00 
RTS 

-■:•..:>''-.*: 
LEA TwpenlO(A&I.A0 



LEA 
HOVE.L 

CL?. : 

HOVE. 3 

huvl 

TST 

BKE.S 

_Op*n 

BME.S 

HOVEQ 

RTS 

JDpenRF 
BEQ.S 
HOVE0 
RT5 



HoajFlcMerRacu(AS) ,A1 
Al.lorileKane(AO) 
loOwnBuf (AO) 
irflHrParB.lapamiflnlAO) 

VOllStaCOUrARE (A3) . lOVR* : ■ (AU) 

DO 



13 

11. DO 



■"" to; 1 : " ' .or 

LEA NoaTl chi«rR*eu fki ) . AO 
LEA HoaTlchlBlHodlf (A5),A1 

HUVtu IM.OO 

BlOCkMOVB 

LEA CHT.AO 

LEA >.;.-■: shlarHodl f (AS ) . A< 

MovF n (Aii.no 
□0 

I53.n0 



EXT 
CMPI.B 
BLt. S 
HOVEO 
- : • 
SRA.S 
AD DQ 
ADD.B 
HJUVLU 
MOVX.B 
ADDO 
09PA 
LEA 
L£A 
MOVE.L 
HOVE 
LEA 
HOVE.L 
CLR. B 
_R«n»« 
BEQ.S it 
CER -(SP| 
BSR Eriaur 

ten 



ii 

IS4.D0 
163. (Al) 
tl 

II, DO 
110. (Al) 
IflBl 

(AO)>.0(A1.DO) 
11,00 

Di.ta 

TaaprtMnt»M.A0 

''■'■.'.'■.«"-«' - thii . Al 
Al.loTllaMwafAO) 

VolwaCoutant (AS) , loVRafHue (AO) 

mmr i>ihnnteii r ( w I , m 

Al . loHawNaM (AO) 
loril«7ypa (AO) 



3aep7 



TaraaturaErr 

iaajpoii|U(AS),AO 

_Cluao 



Hchier 'lnterPom's/5.Asm' 

RacaptlOJiHac 

LEA (AS) .AC 

LEA T«fipo-T«epa[oi r«r (AS | . Al 

HDVTC »lorc£lf ita.00 
_RlochHova 

MOVE TavponEo tratNB IocbDacb (A3) . No=hraBD(A5) 
HCVE TAKpor.En tfa*KBlocilaicjrca (AS) , 

KoebraBIIAS) 
&SX DtpiacaNFR 
H0VIO 10, DO 

HOVE TaaponEn txa'KB loeiTotal (AS ) . DO 
LSH.L ffl.uO 

Q4P.L Honl/i sKOtfuM (AS ) , DO 

BHI . ■ CrMtlotiriBhltilUo 

RKB k- = r -r 

PEA CI C 

B5I AfflchaHl 

BSR 7a-po 

RTS 

CraatlonriehlarKac 

BSR Rouvaauriehlar 
BEQ.S OwarturarichlarHac 
RTS 

Ouvartara>Plchl arMa c 

TST NaabraBD(AS) 

BEQ Ouvartur*RasBOurca 

HOVEQ 10 , DO 

BS3 Cuvariur«FleM« 

oi-U.a nuoarosiccKac 

RTS 

KaoaroBlocHac 

bsb . ' ■ - -i' : - - - ; 

AiLBnLaBIomac 



Flfi?a««pClonKBeO*ta 

LEA TaaponiuiAS) .AO 

HOVE . . Taapon lanuoi ■LK«I> lun Lgl*n ( M ) , 
ioLEOT (AO) 

i at cor 

■1 Bfl r»r«at uraPlcKIar 

OtPI «EOT.Ceda(AS.) 
BEO rinRacaptloriHacData? 
Ouvort ucaAoB lauro* 

TST UnbiaBI (AS ) 

BEO riRRacapllonHacllaca2 

HOVEQ 11,00 

Ouvart uiaFiehlar 
NuBaioSlocHacIt 



BSR 
BEQ.S 
RTS 



BSR ChAngaNuaatoBloc 
AtianEaBlocMacR 
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tl 
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• J 
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■ r : r. : -.- ■ - r : taur 

Cod. (AS) 

BoaolalR 
CatTlaar 
Coda (A3). DO 
ISOB.DO 

Jtaovpt lonBlotJIaefl 

ICAM , DO 

•1 

Annu latlonLm«l taur 
Abandon Ra cap t lonHac 

TlnRaoapi. JonKac 

Cd-Dlffar-Bt 

Af flch«AttantaSloc 
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Souclt IB 



Ra capt lo nB lotAacR 

PEA C6 

BSR AlftcAaHl 
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BSR ElraBlOC 

HOWE Coda(A5|,D0 
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HOVE 


I'.-ISP) 


BEQ.S 


Racapl :onB lodtac 


cur 1 


• DO 


_Sy«aa»p 


CHPI 


ICAN.DO 


BHC.S 


OimacR 


RTS 




BNE.S 


|3 


IBB 


An nu 1>« l«n Ahajidan 


aur 




BSR 


'■-..-■.:-■-*■-«: 


BM 


• lonHa 


LIXK 


AG. 10 


9RA 


ri -. -m, . . ... -.i. 




HOVE 


■ (At), 01 


ei ou; 


IEOT, DO 


BIB 


VarlfleatlonBlsc 


MOVE 


00.01 


BEQ 


rinlanp! . ■ - " j ■ - • ; 


HOVE 


Coda (A5I . DO 


Bsn 


Imp? 


DtfHac 




BEQ.S 


• 1 


T3T 


04 


BSR 


CodaDi f [atHI 


chp: 


ID IF, DO 


BME.S 


•l 


OlfHacI 




BNE.S 


t2 


BSR 


Troll CANCEL 


IS) 


Af f lchaALtanCaBloc 


BSB 


Af flcAaAttantaBloc 
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MOVt 


i tru - i'.p] 


55 R. 


Envoi Code 


ERA 




2 CH?I 


»CW_», DO 


BHE 


DlfHac2« 


35 K 


Annuiat Ion Abandon 


SKA 
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1 33K 




3 BAH 
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loLEOT (AOJ 
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9: BSD Fetnowuxeriehlex 

F 1 nflecent lonHacDataJ 

HOVE *ACK,-(SP) 

33 R EnvolCode 

PEA RectEffH*Bs2 

_Er-i3eRect 

PEA CB 

BSH AltiChnKS 

BSD r.daw 

BNE.S 111 

LEA 7up«nlO(i5), AO 

HDVf. TaenonTemparalreFHoFIUsrWds- 

fdFlag;9 (AS), DO 
AUDI #52000,00 

MOVE DO,loriCaiKdfl'fdFlags(A0) 
MOVE . L TMponT-mpor* l reF* loFlUarUda • 

WTyp* 1A5J .ioFlUgrlidB. fdTypa (AO] 
HOVZ. L TamponTWrnpoiaireftioriUarHaa • 

£dCroacor(A3> ,loriB»rwd»*roCre«t.oi (AOJ 
IvriUDxMdB'EdltuiHiLlbiilAO) 
l«»F10«Wds 1 1 ATlAr |A0) 



C1X.L 
BLB 

_5»*Fll»Ti*f«> 
BSE .5 II 



CLB 
55? 
B5A 



- IS?) 
Erreur 

HlsoJourVoi ueo 
Tenpo 



RotourRecept LonHac 

Kn 

AbandonKecept lonHac 

55 A Fernet ureTlcMer 
B5A i«.enoan>*ri"ichi.er 
BBIl Hl«*JauiVolu«* 
38 a Taape 

Fichier 'InterPom's.Link' 



/Output FiehL«:s:Iate;?ee'9.Code 
/Typo •TEH?* 



Fichier InterPom's-R' 
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~yoo Ta3m « ST* 
.0 

Pob'9 - Int«:?om* a Version 1.4 
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Scrollings en HGR 



Roland Jost 



Aprfes les effets de miroir de 
JANUS (Pom's 25), nous vous 
proposons ici de realiser des 
defilements ('scrolling'), verti- 
caux ou horizontaux, de la totalite 
de l'ecran HGR ou simplement 
dune partie de celui-ci. 

Ce programme n'est pas le 
premier du genre : dans les 
premiers numeros de Pom's, 
Jean-FranQois Duvivier realisait 
un dedoublement d'ecran. 
HAIFA (Pom's 5) et ICARE 
(Pom's 14 ) component aussi un 
module de 'scrolling'. Dans le 
numero 21 de Pom's Patrick 
Quetticr proposait un programme 
de defilement graph ique, dans un 
sens seulement. Pour ne pas 
oublier la litterature etrangere, 
citons HI-RES FULL SCROLL 
dans CALL APPLE #V,(2)-1982 
et surtout HIRES.HOUDIN1 
(NIBBLE #V(10), 1984). Enfin, 
certains generiques de jeux ou de 
logiciels graphiques utilisent des 
effets de defilement. 

II fallait done apporter un 'plus' 
par rapport aux programmes 
existants. Nous pensons que 
e'est le cas de SCROLLINGS. 

Les possibilities 
de SCROLLINGS 

• dcroulcmcnt dc l'ecran HGR 
dans les 4 direction*; (gauche, 
droite, haut, bas) ; 

• 3 modes possibles : 

- vider l'ecran de m ante re 
progressive ; 

- obtenir un deroulement 
continu en entrant d'un cote de 
l'ecran ce qui disparait de 
l'autre ; 

- 'scrolling* sur deux pages, 
la page 2 venant combler la 
page 1. Dans ce cas, le contenu 
de la page 1 est perdu ; 



• l'ampleur du mouvement peut 
etre definie ; 

• le deroulementpeut se faire sur 
tout l'ecran ou seulement dans 
une fenetre definissable par 
l'utilisateur. Dans cette fenfetre, 
on peut faire defiler le contenu 

d'une page enttere. 

Le scrolling peut etre stoppe 
temporairement (appui sur la 
touche <espace>) ou interrompu, 
avec reprise du cours normal du 
programme Basic appelant 
(touche <ESC>). 

Quelques 
explications 

Le principe du deroulement 
d'ecran est simple : dans le sens 
vertical pour obtenir le deplace- 
ment d'une ligne vers le haut, il 
suffit de copier chaque ligne de 
280 points (40 octets) dans la 
ligne precedente. On pourra 
mettre des zeros dans la dernierc 
ligne (191) pour obtenir un 

'scrolling simple 1 avec vidage de 

l'ecran. Si Ton a pris la 
precaution de sauver la ligne du 
haut (ligne 0) , on peut la recopier 
dans celle du bas et obtenir un 
scrolling en continu. Enfin, on 
peut recopier une ligne d'une 
autre page dans la ligne du bas et 
realiser ainsi un 'scrolling* sur 
deux pages. 

En repetant n fois la manoeuvre, 
le deplacement sera plus ou 
moins important. Pour N-192, 
on opere sur toute la page. 

De meme, pour un 'scrolling' 
lateral, on op6rc sur les 40 
colonnes de 192 octets de l'ecran 
HGR. 

On peut d6fmir une fenfitre en ne 
travaillant que sur nx colonnes et 
ny lignes. 



Le programme SCROLLINGS 
est loin d'etre optimise. II se 
compose de 4 modules permettant 
chacun le defilement dans une 
direction. La construction des 
differents modules est similaire et 
on y retrouve des groupes 
destructions identiques qui 
auraient pu etre mises en 
sous-programmes communs. 
Mais le lecteur pourra ainsi, s'il le 
desire, ne prendre que le module 
ne'eessaire ^ ses besoins. 

Occupation 
de la memoir e 

SCROLLINGS est charge a 
1'adresse 37376 ($9200) et doit 
etre protege a partir du Basic par 
HIMEM:36864. 

$9000; table des octets bas des 
adresses des 192 lignes de la 
page graphique 1. 

$90C0: table des octets de poids 
fort. 

$9180: stockagc provisoirc. 
$9200: SCROLI .INGS. 
$94A3: fin du programme. 



LItiliser 

SCROLLINGS 

CALL 37376, Direction, 
Type , Ampl i t ude , 

X, Y,X1, Yl 

Direction = G, D, H, B. 

Type = : scrolling simple ; 

1 : scrolling continu ; 

2 : scrolling de la page 2 
dans la page 1, 

Amplitude :deO a 255. 

X, Y : coordonnees du point 
superieur gauche de la fenetre : 

<= X XI 
<= Y <= Yl 

XI, Y1 : coordonnees du coin 
inferieur droit : 

X <- XI <- 39 

Y <= Yl <= 191 

graphiques. 

a 
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Programme 
'UTIL-SCROLLINGS' 



1 
2 
3 
4 
5 
6 
7 

a 

9 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM 



********************* 

* TTTTL -SCROLL INGS * 

* * 

* R.JOST 1986 * 

* UTILISE * 

* SCROLLINGS.OBJQ * 

* TABLES . HGR . OB JO * 

* * 
********************* 



1000 
TOW 
1020 

1030 

1040 
1050 
1060 
1070 
3000 
3010 
3020 
3030 

3040 

3050 

3060 

3010 

3000 

3090 

3100 

3110 
3120 

3130 

3140 



ADR - 37376: HIMEM: 3C8G4 
G$ = CHR$ (7):D$ = CHR$ (4) 
PRINT CHR$ (4)"BL0AD TABLES . HGR . OB J 
0" 

PRINT CttR$ (4)"&L0AD SCROLLINGS . GBJ 
0" 

X = 0:X1 = 39 :Y = 0:Y1 = 191 
MODE - 

GOSUB 8010: GET R$ : PRINT R$ 

GOSUB 5010 

REM COMMAtJDES 

WAIT - 16384, 128, 127:R = PEEK ( - 
16384) - 123: POKE - 16368,0 
IF R = 83 THEN GOSUB 7010: GOTO 303 

0: REM S)AUVE LA PAGE 1 

IF R = 76 THEN GOSUB 6010: GOTO 303 

- REM L) 0ADPAGE10U2 



IF R 
REM 

IF R 
REM 1 

IF R 
REM 2 

IF R 



m 48 THEN MODE = 0: GOTO 3030: 



= 49 THEN MODE = 1: GOTO 3030: 



- 50 THEN MODE = 2 : GOTO 3030 : 



77 THEN GOSUB 4030: GOTO 303 
0: REM M) 00 TFTE T.A FENETRE 
IF R = 78 THEN X = : Y = : XI - 39 ; Y 
1 = 191: GOTO 3030: REM FENETRE N) ORM 
ALE 

IF R = 73 THEN GOSUB 8010: GOTO 303 
0: REM DESTRUCTIONS 

IF R = 11 THEN CALL ADR, H, MODE, 192, 
X,Y,X1,Y1: GOTO 3030: REM FLF.CHF, HAUT 
E OU CTRL-K 

IF R - 10 THEN CALL ADR, B, MODE, 192, 
X,Y,X1,Y1: GOTO 3030: REM FLECHE BASS 
E OU CTRL J 

IF R = 8 THEN CALL ADR, G, MODE, 39, X, 
Y f Xl,Yl: GOTO 3030: REM FLECHE GAUCHE 



31S0 IF R = 21 THEN CALL ADR, D, MODE, 39, X 
f Y,Xl,Yl: GOTO 3030: REM FLECHE DROIT 
E 

3 ICO IF R = 31 THEN TEXT : END : REM QUI 
TTFR 

3170 GOTO 3030 
4000 : 

4010 REM MODIFICATION DE LA FENETRE 
4020 : REM 



4030 
4040 
4050 

4060 
4010 

4080 
4090 
4100 

4110 
4120 

4130 

4140 
4150 
5000 
5010 

5020 
5030 

6000 
6010 
6020 
6030 
6040 
60SO 



6060 
6070 

6080 

6090 
6100 

6110 

6120 
6130 

6140 
7000 
7010 



TEXT ; HOME : PRINT •'MODIFICATION DE 

LA FENETRE": PRINT 

H'i'AB 1: VTAB 5: PRINT " COORDONNEES D 
U COIN SUPERIEUR GAUCHE:" 

HTAB 1: VTAB 7; PRINT "X ";:ZH = PE 
EK (36) + 1: PRINT X; : HTAB ZH: VTAB 
7: INPUT "";X$: IF X$ < > "" THEN X 
= VAL (X$) 

IF X < OR X > 39 THEN PRINT G$: G 
OTO 4050 

HTAB 1: VTAB 6: PRINT "Y ";:ZH = PE 
EK (36) + 1: PRINT X/: HTAB ZH: VTAB 
8: INPUT ""/Y$: IF Y$ < > "" THEN Y 
= VAL (YS) 

IF Y < OR Y > 191 THEN PRINT G$: 
GOTO 4070 

HTAB 1: VTAB 10; PRINT "COORDONNEES 
DU COIN INFERIEUR DROIT:" 

HTAB 1: VTAB 11: PRINT "Xl ";:ZH = 
PEEK (36) + 1: PRINT XI;: HTAB ZH : VT 
AB 11: INPUT "";X1$: IF Xl$ < > "" T 
HEN XI = VAL (XI $) 

IF XI > 39 OR XI < = X THEN PRINT 
G$ : GOTO 4100 

HTAB 7: VTAB 12: PRINT "Yl ";:ZH = 
PEEK (36) + 1 : PRINT Yl; : HTAB ZH: VT 
AB 12: INPUT "";Yl$: IF Yl$ < > "" T 
HEN Yl = VAL (Yl?) 

IF Yl > 191 OR Yl < - Y THEN PRINT 
G$: GOTO 4120 
GOSUB 5030 
RETURN 

REM AFFTCHAGF PAGE HGR SANS F.FFACFM 
ENT 

Z = PEEK (49232) + PEEK (49234) + 
PEEK (40236) + PEEK (49239) : RETURN 

REM CHARGEMENT D'UNE PAGE GRAPH I QUE 

Z$ = "1" 
TEXT : HOME 

PRINT "CHARGEMENT EN PAGE ";:PH = F 
EEK (36) + 1:PV - PEEK (37) + 1: PRI 
NT Z$: HTAB PR: VTAB PV: GET ZS 
IF VAL (Z$) = THEN Z$ = "1" 
IF (Z$ < > "2" AND Z$ < > "1") THE 
N 6040 

AD$ = ",A$" + $TR$ (2 * VAL (Z$) ) +- 
"000" 

PRINT Z$; PRINT 

INPUT "IMAGE A CHARGER ";N$: IF N$ = 
"" THEN RETURN 

IF N$ = "?" THEN PRINT CHR$ (13); 
CHR$ (4) "CATALOG" : GOTO 6100 
EE = Is ONEPR GOTO 9010 
PRINT CHR$ (13); CHR$ (4)"B 

LOAD *M$ + AD$ 
GOSUB 5030: RETURN 

REM SAUVEGARDE D'UNE IMAGE 
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55 



7020 : 

7030 TEXT ; HOME ; PRINT "SAUVEGARDE DE L 
A PAGE 1": PRINT 

7040 INPUT "NOM ",-N$: IF N$ = »" THEM 707 


7050 EE = 2: ONERR GOTO 9010 

7060 PRINT CHR$ (13); CHR$ (4)"BSAVE "N$ 

" f A$2000,L$lFF8 " 
7070 GOSUB 5030: RETURN 
8000 t 

8010 REM AFFICHAGE INSTRUCTIONS 
8020 : 

8030 TF.XT ? HOME 

8040 INVERSE : PRINT " SCROLLINGS - R 
-JOST (C) 1985 ": NCRI4AL 

8050 PRINT " SCROLLING DANS LES 4 DIRECT! 
ONS PAR LES FLECHES " 

8060 PRINT " (SUR LE 11+ , UTILISER LES 2 
FLECIJESf CTRL-J ET CTRL ~K . ) ": PRIN 

T 

8070 PRINT " : SCROLLING NORMAL "; PRIN 
T " 1 : SCROLLING ' PERPETUEL ' " : PRINT 
" 2 : PAGE 2 VANS RAGE I": PRINT 

8080 PRINT " L : CHARGEMENT D'UNE IMAGE E 
N PAGES 1 ET 2" 

8090 PRINT " M : MODIFIER LA FENETRE ": P 

RINT 

8100 PRINT " N : RETOUR A LA FENETRE STAN 
DARD" 



8110 PRINT " Q : QUITTER LE PROGRAMME" 

8120 PRINT " S : SAUVEGARDE DE LA PAGE 1" 

8130 PRINT " I : AFFZCHER LES INSTRUCTION 
S": PRTNT 

8140 PRINT " <ESPACE? POUR FAIRE UNE PAUS 
E " 

8150 PRINT " <ESC> POUR STOPPER LE SCROLL 
ING" 

8160 RTAB 1: VTAB 23: PRINT "TAPER <RETUR 

W> POUR CONTINUER GET Z$ 

8170 GOSUB 5030 
8180 RETURN 
9000 : 

9010 REM TRAITEMENT ERREURS 
9020 : 

9030 TEXT ; HOME 
9040 ER = PEEK (222) 

9050 IF ER = 6 THEN PRINT "CE FICHIER N' 

EXI5TE PAS"; GOTO 9090 
9060 IF (ER = 4 OR ER = 9) THEN PRTNT "D 

ISK REMPLI OU PROTEGE": GOTO 9090 
9070 IF ER = 8 THEN PRINT "ERREUR I/O - 

ARRET OU PROGRAMME " 
9080 POKE 216,0: END 
9090 POKE 216,0: GET Rg 
9100 IF EE = 1 THEN R = 76: GOTO 3040 
9110 IF EE = 2 THEN R = 83: GOTO 3040 
9120 END 



Source 'SCROLLINGS 7 


33 TAMPON 

34 ARR2 


EQU 
EQU 


SIC 
$1E 




Assembleur TooIKit 


35 XI 


EQU 


SEB 






36 X2 


EQU 


SEC 






37 n 


EQU 


SED 




i * 


38 Y2 


EQU 


SEE 




2 * 


39 MODE 


EQU 


SEF 




J * R.JOST 1985 


40 BUFFER 


EQU 


SFA 




4 * 


41 CHRGET 


EQU 


S0OB1 




5 * SCROLL I NC£ 


47 CHKCOM 


EQU 


Sdebe 


,* teste la virgule 


6 - 


43 GETBYTC 


EQU 


SE6F5 


; saisits d'une valtfui 


7 * 


44 * 








8 » CALL 37376, DIRECTION, MODE, N,X,Y,X2,Y1 


45 TARU, 


F.QII 


$9000 


: TABLE A DRESSES (OCTET 


9 - 








S BAS) 


10 * DIRECTION = G)AUCHE. D) ROITE. HlAUT, B)AS 


46 TAB2H 


EQU 


S9OC0 


; TABLE ADRESSES (OCTET 


11 * 








S HAUTS - PAGE 1) 


12 * MODE = -> DEFILEMENT SIMPLE 


47 * 








13 * MODE p 2 -> RECOPIE PAGE2~>PAGE1 


48 KBD 


EQU 


scouv 


; TESTE LE CLAVIER 


14 * MODE = 1 -> SCROLLING CONTINU 


49 KBDSTRB 


EQU 


SC010 


j STROBE 


15 * 


50 NEWSTT 


EQU 


SD 7D2 


; RETOUR AU BASIC A L'T 


16 * 








NSTHUCTION QUI SUIT 


7 7 * N = AMPLITUDE DU DEP LA CEMEN T 


51 KBDWAIT EQU 


SFB88 


j ATTENTE TOUCHE 


18 * N>0 ET t*<=192 


52 • 








19 * X,Y ET XI, Yl DEFINISSENT LA FENETRE 


53 * 








?n * 


54 * 








21 * 


55 


ORC 


$9200 




22 ~ EN COURS DE SCROLLING 


56 * 








23 * 


57 * 








24 * <ESC> PERMET DE REVEN1R AU PROGRAMME BASIC A 


58 * 








PPELANT 


59 * Salsle de 


la direction du mouvement 


25 * <SPACE> PERMET UN AP.RF.T TFMPORAIRE 


60 * et dispatching vers 


les differents modules 


26 * REPRISE PAR FRAFPE D'UNE TOUCHE 


61 * 








27 * 


62 


JSR 


CHKCOM 




28 W EOU SO 6 


63 


CMP 


i$47 


; G)auche ? 


29 C2 EQU $07 


64 


BNE 


0P2 




30 C3 EQU $08 


65 


JMP 


LATERAL 




31 DEPART EQU SI 8 


66 OP2 


CMP 


9S44 


/ Diroite ? 


32 ARRIVEE EQU $1A 


67 


BNE 


0P3 





56 



Pom's n° 28 



£ 
bo 




U Mc 






2-40 


BNE 


BOUCF I 2 


£ a 
DJ 


OP3 


CMP 


n e A 1 D | 
W?'t£ , Of O i> 




242 


LDY 


XI 


If) 




one 


ftp 4 




2 42 sot/cri 


STA 


(DEPART) , Y 


77 






of c 




24J 


INY 




'2 




CMP 


j> e a o ij i — . 
f ?H f H/ & uc 




144 


CPY 


X2 


77 




BNE 


UP D 




245 


BNE 


B0UCF1 


/ 4 




.IMP 


III f I»T» 

HAU 1 




146 


DEC 


N 


75 


OP5 


RTS 






147 SCPftflP 


RNF. 


SCROTJ.UP 


1 










1-98 


RTS 




77 


* Srrro? 7 ina 


vers le HAUT 




149 ROUCFiy 


CMP 


§02 


*7fl 












BNE 


B0UCFI3 


~? /> 

/y 


HAUT 


JSR 


LnnOCi / SaiSJe aes 


pairaniec res 


252 


LDX 


C3 


on 

au 




JSR 


Lb I BY 1 L 




152 


LDA 


TAMIL tX 


ft f 




STX 


MODE 




153 


STA 


TAMPON 


82 




JSR 


i— r- -f- ft 




2.54 


LDA 


TABl H, X 


83 




STX 








CLC 




84 




JSF 






25^ 

X — i u 


ADC 


t$20 


85 




STX 


XI 




257 


STA 


TAMPON* 1 


ft 

86 




JSR 


i -1 ti n x/^/t*>~* 




2 55 

X — ' u 


INC 


C3 


O 7 




STX 


V] 




159 


LDY 


XI 


aO 




JSR 


e> fpD VP/" 




1 60 BOUCF? 


LDA 


(TAMPON) , Y 


OS 




I NX 






1 61 


STA 


(ARR2) , Y 


90 




STX 






162 

X Vt 


INY 








JSR 






1€3 


CPY 


X? 


ft O 

92 




STX 


VI 




164 


BNE 


BOUCF2 


93 




J, DA 


jt f n ft 




165 


DEC 


N 


ft A 

'JH 




STA 


r*l 
yj 




7 6*6 


BNE 


SCROLLUP 


C 




LUA 


# C 911 




J6"7 


RTS 




3b 




STA 


□ f TCTCD 
tSUt tt,l\ 




2 6*fl HOUCf'"J3 


LDY 


XI , 


fl 7 




LDA 


* t a 7 




169 B0UCF3 


LDA 


(BUFFER) ,Y 


JO 




STA 






2 70 


STA 


(ARR2) , Y 


nn 

yy 




LDX 


i£ ; aaresse oe 




2 71 


INY 




I C/l/ 




LDA 


T2\n7 T Y a ] i /-ma 




172 


CPY 


X2 


2 L/l 




STA 






1 73 


BNE 


BOUCF 3 


1 ft? 




LDA 


i /iij-L n, a 




174 


DEC 


N 






STA 


b no ii 1 




175 


BEQ 


FIN 




SCROLLUP JSR 


X J 




176 


BNE 


SCROUP 


1 ft% 




LDX 


X X 




177 FIN 


RTS 








STX 






178 * 






i fl7 




LDA 




7.i 7ii*7r^ta a 


779 * 
















130 * Scroll 


ing vera le BAS 


7 /1Q 




STA 


ADD Tl/PP 




181 * 






1 no 




LDA 


Tun 1 ii y 




7fl? * 






lit; 




STA 


X D D T 1 ic rx 1 






JSR 


CHRGET 


111 




LDY 


V»7 




254 


JSR 


GETMYTC 


1 J<C 


BE 


LDA 


/&nn 7 \7F P 1 V 

(ZlXfiTI VLiLt 1 f I 




755 


STX 


MODE 






STA 


; our I / / - « iLUtAayc 


MTTT" 1 f « ' ' M 

_ ~l!IL> U> S X x = 


296 


JSR 


QETBYTC 


7 1/ 




INY 






257 


STX 


N 


X -X J 




cpy 


VP 




2SS 


JSR 


GETBYTC 


1 1 




BNE 


up 
DO 




259 


STX 


XI 


7 7/ 


ROUCLEl 


LDX 


UZ 




190 


JSR 


GETBYTC 


LIU 




LDA 


1/iaJ.ljf A 




191 


STX 


Y2 


119 




STA 


ARR1 vhc, 




102 


JSR 


CETBYTC 


7 2/1 




LDA 


7*21 n I w y 

InOXlif ft 




193 


INX 








STA 


A DO Tl/fl*xl 




2 94 


STX 


X2 


1 ? ? 




I NX 






195 


JSR 


GETBYTC 


J 97 
J * J 




LDA 


1 rtDI X./ A 




196 


STX 


Yl 


J 74 




STA 


DFPART 




197 


LDA 


0191 


I ? R 




LDA 


Tfl R 7 W V 




198 


STA 


C3 


1 76. 

XZD 




STA 


DFPAP.T+ 7 
UCr nl\ x ' x 




199 


LDA 


400 


12 / 




LDY 


A J 




200 


STA 


BUFFER 


1 in 

12a 


B0UCLE2 


LDA 


\UlLrnt\l 1 , I i L/IJ ^dlfl/t- 


7 a 7 J on f* f 


201 


LDA 


t$6Q 












202 


STA 


BUFFER+1 


129 




STA 


/ » n n 7tn?p 1 v 




203 


LDX 


Y2 






INY 






204 


LDA 


TABlL, X 


7 71 
iJl 




CPY 


ft£ 




205 


STA 


ARR2 


7 n 




BNE 


oawfj P ? 
tfHIII-i ir./ 




206 


LDA 


TAB1H, X 


1*JJ 




STX 






207 


STA 


ARR2+1 


I J 4 




CPX 






208 SCROLLD'fi JSR 


TEST 


J 75 
I J ^ 




BNE 


Rnf/rrj ; '7 




209 


LDX 


Yl 


2J?£ 


* 








210 


STX 


C2 


237 


* Que faire 


de 2^ derniere iigne ? 




211 


LDA 


TAB 1L,X 




* 








212 


STA 


ARR1VEE 


2J9 




LDA 


Mt)DE 




213 


LDA 


TAB1H, X 



page 2 -> page- 1 



scrolling -conClnu 



sal sic des paramct rcc 
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214 


STA 


ARRIVEE +1 




288 


JSR 


CHRCET 


215 


LDY 


XI 




209 


JSR 


GETBYTC 


21 6 BEDW 


LDA 


(ARRIVEE) , Y 




290 


STX 


MODE 


21 7 


STA 


(BUFFER 1 . Y 




291 


JSR 


GETBYTC 


21 8 


I NY 






292 


STX 


N 


21 9 


CPY 


X? 




293 


JSR 


GETBYTC 


22 


BNE 


DEDH 




294 


STX 


XI 


i ... _ ^ . . * • . 




f'J 




295 


JSR 


GETBYTC 


222 


LDA 


TAB1L.X 




296 


DEX 




223 


STA 


ARRIVEE 




297 


STX 


Yl 


224 


LDA 


TAB1H, X 




298 


JSR 


GETBYTC 


225 


STA 


ARRIVEE+ 1 




299 


STX 


X2 


22 € 


DEX 






300 


JSR 


GETBYTC 


22 7 


LDA 


TAB1L, X 




301 


STX 


Y2 


228 


STA 


DEPART 




302 


LDA 


SO 9 i 


229 


LDA 


TAB1 H, X 




,303 


CMP 


*S47 


230 


STA 


DF^ART+1 




304 


BEQ 


SCRLEFT 


231 


LDY 


XI 




305 ' 






232 B0UCDW2 


LDA 


(DEPART) , Y 




306 * Scrollinq 


a DROITE 


233 


STA 


{ARE IVEE) , Y 




30 7 * 






234 


I NY 






JVfl 


7 nx 


439 


2 IS 


CPY 


X2 






cry 


C3 


236 


BNE 


B0UCDW2 




— J LfCtO ~ I 


r nv 


Y2 


23/ 


STX 


C2 






T DA 
— . . 


TAB1L,X 


233 


r.px 


Y2 






Jtn 


DEPART 


233 


BNE 


B0UCDN1 






STA 


ARR2 


240 ' 










T.DA 


TABlH f X 


241 * Que faire 


de la derniere ligne ? 


as X w 


STA 
Jin 


DEPARTtl 


it! vs 








31 6 


cr.c 




?4 "* 

£ 1 J 








Ji 7 


ADC 


*$2Q 


744 


RNF 






JI 8 


STA 
•Jin 


ARR2+1 


245 


1 DY 
- — - i 




r*r* rr> 1 / i nff 1 mo J ^ 

j .* * i L * —* -a. UiLj^ 


31 9 


LDY 


X2 


?4f\ ROHDMI 

j O iJv V i*' rr a 




/DEPART) Y 

* fill J / j - 




320 


LDA 


MODE 


?4 7 


THY 






321 


BNE 


M0DE1 


248 


CPY 


X2 




322 


PHA 




249 


BNE 


BOUDWl 




323 


JMP 


SRCLIG 


250 


DEC 


N 




324 MODE1 


CMP 


001 


251 SCFODW 


BNE 


SCROLLDW 




325 


BNE 


M0DE2 


252 


RTS 






326 


LDA 


(DEPART) , Y 


253 B0UDWI2 


CMP 


002 




32 7 


PHA 




254 


BNE 


BO0BMI3 




328 


JMP 


SRCLIG 


255 


LDX 


C3 


page 2 -> page 1 


329 M0DE2 


CMP 


002 


256 


LDA 


TAB1 L, X 




330 


BNE 


M0DE3 


257 


STA 


TAMPON 




331 


LDY 


C3 


259 


LDA 


TABlfl,X 




332 


LDA 


jARR2) , Y 


259 


CLC 






333 


PHA 




260 


ADC 


# $20 




334 


LDY 


X2 


261 


STA 


TAMPON*! 




335 


.IMP 


SRCLIG 


262 


DEC 


C3 




33 C MODE 3 


NOP 




263 


LDY 


XI 




33/ SRCLIG 


DEY 




264 B0VDW2 


LDA 


t TAMPON) , Y 




338 


T.DA 


(DEPART) , Y 


265 


STA 


(ARR2) , X 




339 


INY 




266 


INY 






340 


STA 


(DEPART) , Y 


267 


CPY 


X2 




341 


DEY 




266 


BNE 


B0UDW2 




342 


CPY 


XI 


269 


DEC 


N 




343 


BNE 


SRCLIG 


270 


BNE 


SCROLLDW 




344 


PLA 




271 


RTS 






345 


STA 


(DEPART) , Y 


272 B0UDWI3 


LDY 


XI 


scrolling cent inn 


346 


UEX 




273 B0UDW3 


LDA 


(BUFFER) , Y 




347 


CPX 


Yl 


274 


STA 


(ARR2) , Y 




34B 


BNE 


DEDUT2 


275 


INY 






349 


JSR 


TEST 


276 


CPY 


X2 




350 


DEC 


C3 


277 


BNE 


:- - •. X? 




351 


DEC 


N 


278 


DEC 


N 




352 


LDA 


N 


279 


BEQ 


FINI 




353 


CMP 


*$FF 


280 


BNE 


SCRODW 




354 


BNE 


DEBUT 


281 FINI 


RTS 






355 


RTS 




282 ' 








356 * 






283 - 








357 ' Scrolling GAUCHE 


284 'Scrolling LATERAL 




358 * 






285 * 








359 SCRLEFT 


LDX 


too 


286 - 








360 


STX 


C3 


257 LATERAL 


STA 


$09 




361 DEBLFT 


LDX 


Y2 



a droit e ou a gauche? 



derniere ligne 



; derniere ligne 



58 
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3 62 DEBLFT2 


LDA 


TARiL.X 


392 


INY 




363 


STA 


DEPART 


393 


CPY 


X2 


361 


STA 


APR 2 


394 


BNE 


SRCLG 


365 


LDA 


TAB1H,X 


395 


PLA 




3 66 


STA 


DEPART*! 


396 


STA 


(DEPART) 


347 


etc 




337 


DEX 




366 


ADC 


4520 


398 


CPX 


Yl 


369 


STA 


ARR2+1 


399 


BNE 


DEBLFT2 


3 70 


T.ny 


XI 


400 


JSR 


TEST 


3 71 


LDA 


MODE 


401 


JNC 


C3 


372 


am 


CHXl 


402 


DEC 


N 


3 73 


PHA 




403 


LDA 


N 


374 


JMP 


SRCLC 


404 


CMP 


i$FF 


375 CHXl 


CMP 


$01 


405 


BNE 


DEBLFT 


37$ 


BNE 


CHK2 


406 


BTS 




377 


LDA 


(DEPART) , Y 


407 * 






3 78 


FHA 




408 * Arret 


du scrolling 


379 


JMP 


SRCLG 


409 * 






360 CHX2 


CMP 


§02 


410 TEST 


LDA 


KBD 


381 


BNE 


CHX3 


411 


BIT 


KBDSTRB 


382 


LDY 


C3 


412 


CMP 


t$9B 


383 


LDA 


(ARR2) , Y 








384 


PHA 




413 


BNE 


SPACE 


385 


LDY 


XI 


414 


JMP 


NEWSTT 


386 


JMP 


SRCLG 








387 CHX3 


WOP 




415 SPACE 


CMP 


*$A0 


388 SECLG 


INY 










389 


LDA 


(DEPART) , Y 


416 


BNE 


CONT 


390 


DEY 




417 


JSR 


XBDWAIT 


391 


STA 


(DEPART) , Y 


418 CONT 


RTS 





; <ESC> interrompt le s 
crol J i ng 

j retour au programme B 

ASIC appelant 
,• <ESPACE> fait unc pau 

se 

,■ attente d'une touche 



Table 

'TABLES.HGR. 
OBJ' 

Apres avoir saisi cette table sous 
monitour, vous la sauvegardoroz par 
BSAVE TABLES.HGR, QBJ,A$9QQQ, 
L$180 



9000- 


00 


00 


00 


00 


00 


00 


OO 


00 


9008- 


80 


80 


80 


80 


80 


80 


80 


80 


9010- 


00 


00 


00 


00 


00 


00 


00 


00 


9018- 


80 


80 


80 


80 


80 


80 


80 


80 


9020- 


00 


00 


OO 


00 


00 


00 


OO 


00 


9028- 


80 


80 


90 


80 


80 


80 


80 


9C 


9030- 


00 


00 


OO 


UU 


00 


00 


00 


UO 


9038- 


80 


80 


80 


80 


80 


80 


80 


80 


904 0- 


28 


28 


28 


28 


28 


28 


28 


28 


9048- 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


3050- 


28 


28 


28 


28 


28 


28 


26 


28 


9058- 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


9060- 


28 


29 


28 


28 


28 


28 


28 


28 


9068- 


A8 


A8 


A8 


AB 


A8 


A8 


A8 


AS 


9070- 


28 


28 


28 


28 


28 


28 


28 


28 


9078- 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


A8 


9080- 


50 


50 


50 


50 


50 


50 


50 


50 


9088- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


9090- 


50 


50 


50 


50 


50 


50 


50 


50 


9090- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


90A0- 


50 


50 


50 


50 


50 


50 


50 


50 


90A8- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


9QB0- 




SO 


5 


SO 


50 


50 


5Q 


50 


9QB8- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


9OC0- 


20 


24 


28 


2C 


30 


34 


38 


3C 


90C8- 


20 


24 


28 


?C 


30 


34 


38 


3C 


9OD0- 


21 


25 


29 


2D 


31 


35 


39 


3D 


90D8- 


21 


25 


29 


2D 


31 


35 


39 


3D 


9OE0- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 



90E8- 


22 


26 


2A 


2E 


32 


36 


?A 


IF 


90F0- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


90F8- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


9100- 


20 


24 


28 


2C 


30 


34 


38 


3C 


9108- 


20 


24 


28 


2C 


30 


34 


38 


3C 


9110 


21 


25 


29 


2D 


31 


35 


39 


3D 


9118- 


21 


2b 


29 


2D 


31 


35 


39 


3D 


9120- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


9128- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


9130- 


23 


77 


?R 


PF 


?3 


17 


3R 


3F 


9138- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


9140- 


20 


24 


28 


2C 


30 


34 


38 


3C 


9148 


20 


24 


28 


2C 


30 


34 


38 


3C 


9150- 


21 


25 


29 


2D 


31 


35 


39 


3D 


9158- 


21 


25 


29 


2D 


31 


35 


39 


3D 


9160- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


9168- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


9170- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


9178- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 



Recapitulation 

'SCROLLINGS. 

OBJO' 

Apres avoir saisi ce code sous 
moniteur r vous le sauvegarderez par 
RSAVE SCROLLINGS, OBJ0.AS9200, 
L$2A3. 

9200 20 BE DE C9 4 7 DO 03 4C 
9208- AE 93 C9 44 DO 03 4C AE 
9210- 93 C9 42 DO 03 4C E7 92 
9218- C9 48 DO 03 4C 20 92 60 
9220- 20 Bl 00 20 FS E6 86 EF 
9228- 20 F5 E6 86 06 20 F5 £6 
9230- 86 EB 20 F5 E6 86 ED 20 
9238- F5 E6 E3 86 EC 20 F5 E6 



9240- 


86 


FF. 


A 9 


00 


85 


08 


A9 


80 


9248- 


85 


FA 


A9 


91 


85 


FB 


A6 


EE 


9250- 


BD 


00 


90 


85 


IE 


BD 


CO 


90 


9258- 


05 


IF 


20 


OE 


94 


A6 


ED 


86 


9260- 


07 


BD 


00 


90 


85 


1A 


BD 


CO 


9268- 


90 


85 


IB 


A4 


EB 


Bl 


1A 


91 


9270- 


FA 


C8 


C4 


EC 


DO 


F7 


A6 


07 


q?7R- 


Rf) 


00 


90 


85 


1A 


BD 


CO 


90 


9280- 


85 


IB 


E8 


BD 


00 


90 


85 


18 


9288- 


BD 


CO 


90 


85 


19 


A4 


EB 


Bl 


9290- 


18 


91 


1A 


C8 


C4 


EC 


DO 


F7 


9298- 


86 


07 


E4 


EE 


DO 


D8 


A5 


EF 


92A0- 


DO 


OE 


A4 


EB 


91 


18 


C8 


C4 


V2A8- 


EC 


DV 


F9 


Cb 


06 


DO 


Atf 


60 


9230- 


C9 


02 


DO 


21 


A6 


08 


BD 


00 


92B8- 


90 


85 


1C 


BD 


CO 


90 


18 


69 


9?CO- 


70 


85 


in 


E6 


08 


A4 


F.B 


Bl 


92C8- 


1C 


91 


IE 


C8 


C4 


EC 


DO 


F7 


92D0- 


C6 


06 


DO 


86 


60 


A4 


EB 


Bl 


9208- 


FA 


91 


IE 


ce 


C4 


EC 


DO 


F7 


92E0- 


C6 


06 


FO 


02 


DO 


C7 


60 


20 


92E8- 


Bl 


00 


20 


F5 


E6 


86 


EF 


20 


92F0- 


FS 


E6 


86 


06 


20 


Fh 


Eb 


tib 


92F8- 


EB 


20 


F5 


E6 


86 


EE 


20 


F5 


9300- 


E6 


E8 


86 


EC 


20 


F5 


E6 


86 


9308- 


ED 


A9 


BF 


85 


08 


A9 


00 


85 


9310- 


FA 


A9 


60 


85 


FB 


A6 


EE 


BD 


9318- 


00 


90 


85 


IE 


BD 


CO 


90 


85 


9320- 


IF 


20 


8E 


94 


A6 


ED 


86 


07 


9328- 


BD 


00 


90 


85 


1A 


BD 


CO 


90 


9330- 


85 


IB 


A4 


EB 


31 


1A 


91 


FA 


9338- 


C8 


C4 


EC 


DO 


F7 


A6 


0/ 


BD 


9340- 


00 


90 


85 


1A 


BD 


CO 


90 


85 


9348- 


IB 


CA 


BD 


00 


90 


85 


18 


BD 


9750- 


CO 


90 


85 


7 9 


A4 


FR 


87 


18 


9358- 


91 


1A 


C8 


C4 


EC 


DO 


F7 


86 


9360- 


07 


E4 


EE 


DO 


D8 


A5 


EF 


DO 


9368- 


7E 


A4 


EB 


91 


18 


C8 


C4 


EC 
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n lid 




r 9 


f~C 

Co 


06 DO Afi 


bu 


#■■•'1 
C9 




A2 21 


at 


08 


A6 EE BD 


00 


9440- 


BD 


CO 


90 


85 


19 


18 


69 


20 


Q 3 7D 


U4 


uu 


-j 7 


m a 


no 


DU 


uu 


yu 


93E0- 


90 


85 


18 


85 


IE 


BD 


CO 


90 


0448- 


85 


IF 


A4 


EB 


AS 


EF 


DO 


04 




a 3 


1C 


hzj 


CO 


9U 


18 


69 


"if 1 
il - 


93E8- 


85 


1 9 


18 


69 


20 


85 


IF 


A4 


9450- 


48 


4C 


6D 


94 


C9 


01 


DO 


06 




- . - 


7 n 


L. 


I/O 


Ah 


EB 


D 7 
al 




3 Ir IJ— 


EC 


A 5 


EF 


DO 


04 


48 


4C 


12 


9458- 


91 


18 


48 


4C 


6D 


94 


C9 


02 


9390- 


92 


2£ 




C4 


EC 


DO 


F7 


C6 


93F6- 


94 


C9 


01 


DO 


06 


Bl 


18 


48 


9460- 


DO 


OA 


A4 


08 


Bl 


IE 


48 


A4 


9398- 


Oft* 


DO 


S6 


6{J 


A4 


EB 


Bl 


FA 


9400- 


4C 


12 


94 


C9 


02 


DO 


OA 


A4 




F.R 


4C 


fin 


94 


FA 


08 


Bl 


18 


93A0- 


91 


IE 


Cfl 




EC 


DO 


F? 


cc 


9408- 


08 


Bl 


IE 


48 


A4 


EC 


4C 


12 


9410- 


88 


91 


18 


C8 


C4 


EC 


DO 


F5 


93A8- 


06 


FO 


05 


DO 


C? 


60 


85 


09 


9410- 


94 


EA 


88 


31 


18 


C8 


91 


18 


9418- 


68 


91 


18 


CA 


E4 


ED 


DO 


B9 


93BQ- 


50 


91 


00 


20 


F5 


E6 


96 


EF 


9418 


88 


C4 


EB 


DO 


F5 


68 


91 


IB 


9480- 


20 


OE 


94 


EC 


08 


C6 


06 


A5 


93BB- 


20 


F5 


E6 


86 


06 


20 


F5 


E6 


9420- 


CA 


E4 


ED 


DO 


B9 


20 


BE 


94 


9488- 


06 


C9 


FF 


DO 


AA 


60 


AD 


00 


9JC0- 


S6 


£B 


50 


F5 


E6 


CA 


86 


ED 


9428- 


C6 


08 


C6 


06 


A5 


06 


C9 


FF 


9490- 


CO 


2C 


10 


CO 


C9 


9B 


DO 


03 




20 


F5 


£6 


86 


EC 


20 


F5 


E6 


3430- 


DO 


AA 


60 


A2 


00 


86 


08 


At 


9498- 


4C 


02 


Ul 


C9 


AO 


DO 


03 


20 






EE AS 


09 


C9 


41 


FO 


5B 




EE 


BD 


no 


90 


85 


18 


85 


IE 


94A0- 


Rft 


FR 


fin 













Extasie a Pessai 



Nous devons ce programme de dessin, 
edite par Apple, a Pierre Berloquin et 
Serge Hervy. II necessite un Apple lie ou 
un //e avec carte Feline et souris. 

La qualite de 1'ergonomie permet de se 
lancer dans son premier dessin sans trop 
s'attarder sur la documentation d'ailleurs 
fort bien presentee. Une barre de menus 
deroulants, des fenetres, pilotage a la 
souris, e'est presque MacPaint ! 

Les dessins en couleurs (16) et en double haute 
rdsolution sont r6alis6s k partir de fonctions de 
base : point, trait, rectangle, ellipse, aerographe et 
texte (k chasse proportionnelle) ; une loupe aide 
l'utilisateur k travailler au point pres sur les 560 
que comporte chaque ligne. On dispose egalement 
flu remplissage k 1'aide d'un motif choisi parmi 
seize, mais cette routine de remplissage - rapide - 
nous a semble utiliser une astuce simplifiant plus 
la tache du programmeur que celle de l'utilisateur : 
il faul baJayer vertiealemenl la zone a remplir et 
non simplement "cliquer' dedans. Pas si simple 
quand la zone est effilfe. Pas de vrais bugs mais la 
vitesse de trac6 des rectangles reste en-degS de 
l'extase. 

La gestion est confife a ProDOS, ce qui permet 
d'utiliser tous les supports mais 1&, le confort de 
l'utilisateur peche un peu sans que ProDOS soit 
responsable : 



• la routine ONLINE n'est pas disponible 
directement mais seulement en cas d'erreur ; 

• en sauvegarde, une erreur est signage deux 
fois, une Tors de la tentative d'OPEN, une lors 
du CREATE ; 

• on n'acc&dc pas directement aux 
sous-catalogues lors des sauvegardes/ 
chargements, il faut le pr^ciser dans un 
menu ; 

• dernier point faible : il n'est pas prevu de 
formater une disquette depuis le programme. 
ProDOS ne le permet pas mais adjoindre une 
telle routine a ce programme n'etail pas un luxe. 

Dans la fenetre d'erreur subsistent deux nombrcs : 
l'un est le code de la fonction MLI appele, l'autre 
le code d'erreur : un vestige de debugging ou 
initiation aux appels MLI ? 

Finalites d'un programme de traitements de 
dessins, la sauvegarde et I'impression. Ici, la 
premiere se fera compactee (pour un gain de place 
non n6gligeable) ou non et la deuxieme en 
couleurs (sur rimageWriterll). 

Extasie est certainement un bon logiciel (double 
haute resolution, impression couleur, simplicite et 
confort dans les manipulations). On attend 
toutefois avec impatience une nouvelle version, 
plus rapide et aux accfes disques plus conviviaux.. 
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PicoExpert 

Systeme Expert de degre 

Yves Martin 



Generalites 

PICOEXPERT prend en comptc 
deux fichiers. Dans le premier, il 
lit des assertions qui pourront etre 
vraies ou inconnues. Dans le 
second, il lit les regies qui 
regissent ces assertions. 

PICOEXPERT permet de faire 
sur ces assertions (on dira 'faits' 
dans la suite, meme si c'est un 
abus de langage, car un fait 
dcvrail clre une assertion vraie) 
soit de l'induction ou chainage 
arri&re, soit de la deduction ou 
chainage avant. 

Dans cet article, nous allons 
utiliser ce programme pour 
decrire brievement comment 
fonctionne un systeme expert. 
Cclui-ci est dit dc dcgrc car lcs 
assertions de base ne contiennent 
pas de variable. Un systeme 
expert de degre 1, avec variables, 
serait beaucoup plus interessant, 
mais c'est deja moins simple S 
ecrire, et il semble qu'il soit 
difficile de faire quelque chose 
qui soit a fois general et efficace : 
par exemple, un systeme expert 
en geometrie, outre qu'il doit 
savoir faire ce qu'on attend de 
lui, doit naturellement connaitre 
des notions comme la transitivity 
les classes d'equivalence par 
exemple, ce qui ne sera pas 
ncccssairc pour un syst£mc 
expert en autre chose. . . 



L'utilisation de la recursivite du 
Pascal et de ses pointcurs est tout 
a fait efficace ici, c'est presque 
faire de l'asscmbleur — car on 
gere constamment des adresses - 
avec un langage evolue. Si cet 
article pouvait arriver a 
convaincre les "Pascaliens" qui 
ne s'y sont pas encore mis a 
travailler les pointeurs. . . 



Structure 

du programme 

Le programme est divise en 
differentes parties : 

Procedures usuelles de Pom's et 
initialisations diverses 

On remarquera la possibilite du 
dans le OUI, ceci afin que 
Von puisse signifier que Von 
ne connatt pas la rSponse a une 
question, ators que le NON 
pourrait signifier que Von sait 
que la chose demandee nest 
pas vraie ; 

Procedures de manipulation des 
diverses listes 

Ces procedures permettent 
d'ajouter ou retrancher des 
Elements d'une liste, ou tout 
sirnplernent evaluef son 
contenu. Elles ne posent pas de 
probleme ei le dibutant en 

pointcurs en Pascal peut com- 
mencer par defricher cette 
panic; 

La construction de l'arbre des 
conditions 

Ces procedures permettent de 
transformer les rigles lues 
datis le ficliier de regies en liste 
d'arbres. La structure retenue 
ici est la suivante : 

- une rfegle est un enregis- 
trement qui contient : une 
condition, une action et un 
pointeur de regie, ou encore 
les regies sont dans une liste 
qui contient une condition et 
une action ; 

- une condition est une liste 
d'arbres ; 

- une action est une liste 
d'entiers ; 

- un arhre enfin est compose 
d'une INFO qui est un en- 
tier, et d'un Fil Gauche et 



dun Fil Droit qui sont des 
pointeurs d'arbres. 

Precisons tout d'abord que les 
assertions lues sur la disquette 
sont placees dans un tableau BF 
(pour Base de Kaits) et qu'ensuite 
les faits sont repcrcs par lcur 
indices dans ce tableau, c'est 
pour cela qu'une action est une 
liste d'entiers et que INFO d'un 
arbre est aussi un entier. 

La grammaire pour construire la 
liste des regies est la grammaire 
usuelle de l'algdbre ordinaire, on 
a : 

Expression y Terms _ 



Ou 



Par exemple : 
A + B 

A.C-*-B + D.(E + F + G) 

sont deux expressions. Dans la 
premi&re les deux termes sont A 
et B et dans la seconde les termes 
sont A.C puis B, puis D.(E + F 
+G). Autrenient dit, une 
expression est une suite de termes 
s6par6es par des OU (bien sttr ici 
OU et ET sont respectivernent 
representes par et "."). 



Terme 



Terme 



Et 



Les TERMES eux, sont unc suite 
de facteurs separes par des ET 
(soit des "."). Dans le second 
exemple ci dessus, A.C est un 
teime dont les facteurs sont A et 
C, B est un terme a un seul 
facteur, et D.{E + F + G) est un 
terme dont les facteurs sont D 
d'une part et d'autre part (E + F + 
G) c 'est-zk- dire une 
EXPRESSION entre parenthese. 
On retrouve Ik tout a fait l'algfcbre 
ordinaire, et pour ceux qui 
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decouvrent ce genre de choses 
ici, on s'aper^uit conibien la 
recursivite est indispensable dans 
ces problfcmes puisque la 
definition de FACTEUR 
contenue implicitement dans 
EXPRESSION contiendra aussi 
EXPRESSION. 



Facteur _^ 



NBRSS 



_ (Expression) 



Autrement dit, un facteur sera soit 
un NBRSS, un nombre sans 
signe, soit une expression placee 
entre parentheses. 

NBRSS : c'est une chame de 
caractcrcs qui ne peut utiliser que 
les chiftres. 

La construction proprement dite 
se fait dans la procedure 
CONSTRUIRE qui, partant 
d'une chaine de caracteres renvoit 
un pointeur d'arbres et un entier 
qui indique le nomhre de feuilles 
dans toute la "foret" dc 
conditions I La foret en pratique 
n'ayant que 1 ou 2 arbres 
d'ailleurs... 

Ce nombre de feuilles devait 
servir a ordonner les arbres selon 
le nombre de feuilles decroissant, 
puis ensuite de ponderer les 
assertions afin que, les feuilles 
ayant du poids, on examine les 
arbres selon le poids d'inconnu 
que Ton a & son egard, mais cette 
dernifcre amelioration, pourtant 
assez facile a realiser n'a pas ete 
faite ici, ce serait un bon exercice. 
Done dans la procedure 
CONSTRUIRE, les variables N, 
Nl et N2 ne considerent que cette 
question et n'interferent pas la 
comprehension de la suite. 

CONSTRUIRE utilise LICAR et 
NUCAR. LICAR lit lout 
simplement un caractfcre qu'elle 
place dans la variable CAR et fait 
pointer la variable NUCAR sur le 
prochain caractere & lire (les 
blancs sont sautes, bien sur). Les 
procedures EXPRESSION et 
TERME sont idenriques et basees 
sur l'algorithme suivant - donne 
pour EXPRESSION: 

Pour EXPRESSION (VI et V2 
sont des PARBRES) 



- Rechercher le premier 
TERME, et le nietlre dans VI 

- Tant qu'on rencontre un OU : 

- chercher le lerme suivant, le 

mettre dans V2 

- construire un nouvel arbre 
ayant 

pour information : OU 
pour fils gauche VI 
pour fils droit V2 

- mettre dans VI ce nouvel 
arbre 

- EXPRESSION renverra la 
valeurdeVl 

Ainsi A + B + C sera code ainsi : 



mcmc chose pour TERME. 

FACTEUR se traite de la merae 
fagon : 

- Pour FACTEUR 

- Chercher si on a affaire & un 
NBRSS 

- Si oui on place ce nombre sans 
signe dans FACTEUR 

- Sinon : Si 1'expression 
commence par une parenthese 

- alors chercher une 
EXPRESSION 

- si 1'expression se termine 
par une parenthese 

alors FACTEUR recoit 

EXPRESSION 

sinon Erreur ! II manque 

- sinon Erreur ! II manque (" 

Enfin NBRSS indique si Ton 
rencontre un nombre sans signe 
et, si oui, le place dans le INFO 
du PARBRE correspondant 

Ainsi A.C + B + D.(E + F + G) 
sera alors structure comme suit: 

Pointeur de 1'expression 

Oil 



A \ 



•'X 



La condition d'une regie est une 
suite de Parbre, ceux-ci etant 



implicitement separes par des ET. 
Cette possibility est proposes 
dans la syntaxe par une '*' qui 
fait l'effet dun "gros ET". Cette 
possibility avait ete laissee au 
depart dans I'opfique de 
structurer une reorganisation du 
parcours des Parbres en fonction 
du poids des feuilles qui restaient 
inconnues ; mais ceci n'a pas ete 
fait dans cette version, les 
feuilles, c'est -&-diie les assertions 
de depart n'ayant pas ete 
ponderecs. 

Ainsi par exemple 2 * (3.4 + 5.6) 
est identique a 2.(3.4 + 5.6) 7 
seulement la premiere version 
donne deux Parbres pour 
Texpression alors que la seconde 
ne donne qu'un seul parbre. 

Les procedures de deduction 

II s'agit du chainage avant d'un 
systcme expert : Comptc tcnu des 
faits qui sont connus par la 
machine comme vrais, elle 
applique les regies qu'elle connait 
et en d^duit tout ce qu'elle peut. 

La procedure DEDUIRE est le 
lien avec 1'utilisateur qui indique 
quelles sont les assertions vraies. 
One fois cela etabli, on appelle 
DEDUIT. 

DEDUIT parcours toutes les 
regies. Pour chaque regie, elle 
teste si celle-ci est applicable et, si 
oui, elle verifie qu'en l'appliquant 
on obtient bien un fait nouveau. 
Si une fois au cours de tout ce 
parcours on obtient au moins un 
fait nouveau, alors on 
recommence tout le procede 
depuis la premiere regie puisque 
la base de faits connus comme 
vrais s'est agrandie. 
DEDUIT utilise done les fonction 
booleemies CHAINAVANT, 
UTILISE, et TESTREGL. 

Detaillons TESTREGL qui, elle, 
utilise la recursivite, ce qui nous 
preparcra au chainage arriere. 
TESTREGL teste tout les Parbres 
de sa partic 'condition', tous ces 
arbres doivent etre vrais car ils 
sont scares par des ET ('*'). 
Pour cela TESTREGL contient 
une fonction TESTARB qui elle 
sera recursive, en effet son 
algorithme dans ces conditions 
est Lr6s simple : 
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Pour TESTA RB (R AC :parbre) 
Selon que le contenu INFO de la 
RACine est : 
ET alors 

si lc Fils Gauche est vrai 

TESTARB est la valeur du 

Fils Droit 

sinon TESTARB est faux 
OU alurs 

si le Fils Gauche est faux 
TESTARB est la valeur du 
Fils Droit 

sinon TESTARB est vrai 

Une feuille alors TESTARB est 
vrai si la feuille est contenue dans 
la liste des feuilles connues 
comuie vraies. 

Li encore, si on debute dans 
l'approche recursive, cette petite 
application donne la mesure de la 
force de la recursivite. 

Les procedures d'induction 
ou chainage arriere 

Cette partie est sans doutc, avec 
la procedure de construction des 
arbres, la plus interessante du 
programme, bien qu'elle soit tres 
simple de comprehension et de 
realisation. 

Elle contient deux procedures en 

recursivite croisees* la seconde 
appelant une procedure cllc-mcme 
recursive, situation tout a fait 
naturclle dans ce genre de 
situation, et done tres simple £ 
6crire dans un langage lui-memc 
recursif. 

La fonction PROUVREGLE est 
vraie si la regie que Ton cherche a 
appliquer est effeciivement 
applicable. La fonction 
VERIFIER se contente 
simplement de verifier si un fait 
est vrai. Les deux s'articulent 
ainsi : 

Pour VERIFIER qu'un fait est 
vrai, il faut : 

- tester s'il est un Element de la 
liste des faits vrais (ici BASE), et 
si oui, e'est fini ; 

- sinon, on parcours la liste de 
toutes les regies, et pour chaque 
regie dont ce fait lii est une action, 
e'est-a-dire une conclusion, on 
est amene k tester si cette rfegle est 
applicable (PROUVREGLE) ; 

- si le fait n'est dans aucune 
action, ou qu'aucune regie n'est 



applicable, alors il nous reste a 
demander a Toperateur au clavier 
s'il sait quelque chose au sujet de 
ce fait Ik (apres s'etre assure 
qu'on ne lui a pas deja demande - 
d'ou une liste de QUESTIONS et 
une procedure ENLEVE pour 
en lever les faits connus des 
QUESTIONS). 

Pour PROUVer une REGLE 
rnaintenant, il suffit de PROUVer 
les arbres qu'elle contienl. Si lous 
les ARBres sont vrais, la rfegle est 
applicable et on l'applique 
(utilisation de PLACER). 

Pour PROUVer un ARB re 
(PROU V ARB), on procSde 
conime pour le TESTer 
(TESTARB). Selon 
l'lNFOrmation de la RACine : 

- ET : on doit PROUVer les 
ARBres a la fois FG et FD 

- OU : on doit PROUVer Tun 
des ARBres FG ouFD 

- FEUILLE : on doit VERIFIER 
que cette feuille est bien connue 
comme vraie (et done VERIFIER 
est appelee par PROUVARB qui 
est appelee par PROUVREGLE 
qui est appelee par VERIFIER 
elle-meme). 

La procedure CONFIRMER fait 
le lien avec roperateur au clavier 
et demande quelle assertion on 
veut pruuver. Elle cherche alors h 
VERIFIER cette assertion selon 
l'algorithme decrit au dessus. 

Les procedures de lecture 
des regies 

Ces procedures lisent les fichiers 
de faits et de rdgles sur la 
disquette et construisent les 

arbres de regies. 

LIREREGLE decoupe la phrase 
en une partie CHaine ACTion 
(CIIACT) et une partie CHaine 
CONDItion (CHCONDI). 
ATTENTION il est ici implicite 
que le signe d'implication soit 
"==>" et qu'il soit pr6c6d€ dun 
blanc. 

Ensuite, PLACTION place les 
actions et PLCONDIT place les 
conditions, et done appelle 
CONSTRUIRE. Remarquons 
que les actions sont s6par6es par 
des V et non des l *\ On peut le 
rajouter si on veut dans 
PLACTION il suffit alors 



d'ajouter *** a 1'ensemble 

des scparateurs . . .IF S[I] IN. . . 

Enfin, on a ajoutc une procedure 
de verification des regies qui est 
simplement une lecture de l'arbre 
de la liste des regies. La encore, 

dans le cadre d'une decouvene de 

la recursivite sur des arbres en 
pascal, on peut cornmencer & 
defricher ECRIREGLE et 
ECRTARB qui ne posent aucune 
difficulte. 

Ce programme est accompagne 
de deux exemples en 
mathematique. Le premier sur les 
notions de parallelogramme, 
rectangle, losange et carre. On 
peut utiliser celui-ci pour sc 
familiariser avec le fonction de 
PICOEXPERT. 

Le second exemple montre les 
limites d'un tel progamme dans le 
cas ou on veut rapidement 
travailler avec des variables et que 
l'on nc dispose pas au moins de 
requivalence, neanmoins 
PICOEXPERT est tris cornpitent 
pour tout ce qui est generique, 
sans variables. 



Les ameliorations 

On peut cornmencer par cherchcr 
a ce que le programme affiche 
non seulement ce qu'il deduil 
comme il le fait actuellement, 
mais qu'il affiche aussi pourquoi 
il deduit cela, e'est i dire qu'il 
indique, quand il utilise une 
rfegle, les faits qu'il utilise 
et eux seulement bien sur. Ce 
serait une procedure qui serait 
appelee par PLACER par 
exemple, et elle serait interessante 
a faire. 

PICOEXPERT peut aussi etre 
transforms en M1CROEXPERT 
ou meme MINIEXPERT en 
ameliorant le chainage arriere. En 
effet le programme acruel, h des 
fins didactiques, utilise soit un 
chainage avant pur soit un 
chainage arriere pur. Or dans la 
realite, la demarche analytique, 
l'induction n'est jamais faite sans 
considerations de deduction, cela 
n'a pas de sens. II faudrait done 
repenser compl£tement 
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I'algorithme du chainage arriere 
pour que de pico- le programme 
devienne micro- ou meme mini- 
expert. 

Pour cela, il y aurait assez peu a 
faire, encore que cela puisse etre 
assez long. On pourrait dans un 
premier temps simplifier la 
grammaire et ne considerer, a la 
place des arbres, simplement des 
listcs dc ET, et dans ce cas on 
aurait effectivernent plusieurs 
regies ayant la meme action. 
Ensuite donner un coefficient de 
ponderation a chaquc assertion, 
Pour VERIFIER un fait on peut 
alors faire la liste des regies qui 
ont ce fait en action. Cette liste 
sera ordonnee selon la fraction 
d'inconnu dans scs premisses : 

Par exemple si A.B.C ==> D, 
que A , B , C soient affectes de a, 
b, c. 

Si par exemple A et B sont 
connus alors cette regie sera 
affectee elle du coeficient c / 
(a i b i c) . Et ainsi les questions 
posees le seront avec beaucoup 
plus dc pertinence. Et pica- 
deviendra micro- . Notons que ce 
micro-expert serait tout & fait 
efficace dans nombre 
duplications ; diagnostic de 
panne ou diagnostic (^'utilisation 
de reglementations complexes. 
Pour avoir plus de place 
memoire, il n'est pas necessaire 
d'avoix le fichier 'faits' en 
memoire centrale, il peut rester 
sur disque ou sur disque 
virtuel, et done le tableau BF 
etant alors supprime, il y a 
beaucoup plus de place pour les 
regies. 

On peut chercher a ameliorer les 
possibilites et introduire en plus 
de l'implication, l'equivalence 
logique. Ici cela n'a pas ete fait 
car cela n'a d'interet dune part 
que pour des applications 
mathematiques, et d'autre part, 
d'assez peu d'interet pour un 
system e sans variable. 
Neanmoins, la chose est un bon 
exercice qui ne pose aucun 
probleme et qui pourrait, dans le 
cadre d'application 
mathematiques, avoir un reel 
interet pedagogique ou etre une 



bonne base pour un projet 
p&iagogique. 

Pour cela. il suffit d'avoir un 
degre de profondeur de plus dans 
les procedures PROUV (regie ou 
arbre) et bien sur un drapeau qui 
pointe sur la liste des 
equivalences que Ton est en train 
de tester pour ne pas boucler sur 
les equivalences. Ce degre de 
profondeur ne demande que la 
construction d'une autre 
procedure PROUV 
(PROUVGENE) et d'une 
procedure TESTEQU qui testera 
sur les equivalences une assertion 
donnee, moyennant de ne pas 
essayer une liste 
d'equi valences... dont peut etre 
issu cet appel . 
Et micro- deviendra mini-. 

Bien sur, cette partie sera 
grandernent enrichie, mais cela 
devient moins simple, si il n'y a 
plus une base de faits vrais 
uniquement, mais aussi une base 
de faits faux ( CONSTRUIRE se 
modifie facilement en mettant des 
nombres negatifs, cette partie ne 
presente pas de reelle difficulte) et 
que, e'est \k qu'est la difficulte, le 
programme s'il rencontre 
A <==> B et qu'il sache que A 
est faux en conclura que B aussi, 
avec de nombreuses variantes sur 
les contraposees logiques, par 
exemple si A ou B ==> C 
et que Ton sait que A est faux et 
que C aussi, on place 
automatiquement que B Test 
aussi. Auirement du. un 
programme qui, outre ses regies 
sur fichier, contiendra ses 
propres mita-regles. 

La difficulte n'est pas tant dans 
1'ecriture, mais suit out dans le 
fait que le chalnage arriere comrne 
on l'a decrit ci-dessus ne serait 
plus alors aussi pertinent ; en 
effet dans ce cas, la recursivite si 
precieuse auparavant devrait 
pouvoir etre court-circuitee ici a 
tout moment sous peine de poser 
a lecran des questions qui ne 
seraient plus dactualite. II faut 
done repenser alors complStement 
I'algorithme du chainage arriere, 
pour qu'il ne pose que des 
questions pcrtincntcs. . . 
Kt alors mini- deviendra vraiment 



expert. 

Commc on le voit dans ccs 
ameliorations, travailler sur un 
systfcme expert, meme d'ordre 
zero, peut etre un travail vraiment 
passionnant puisqu'il amene & 
reflechir sur la 'demarche 
intelligente* que Ton souhaite 
donner a Tanalyse d'un 
probleme, et les variantes sont 
nombreuses chacun programmant 
un peu sa propre fagon d analyser 
un probleme... 

NDLR : Le programme comprend 
1.2+34 comme (1.2)+(3A) et 
1+2.3+4 comme l+(2.3)+4. 11 
est done conseille de mettre des 
parenthises des qu'on a le 
rnoindre doute. 

Eviter les regies qui se ' mordent 
la queue' , surtout quand on a fait 
un chainage arriire, car le 
programme peut alors houcler 
sans autre issue que le RESET. 
Par exemple : 

(12)==>(3) 

(3)==>(2) 
Si ion ckerche a confirmer (2) on 
court au probltme. 

Si les regies sont incorrcctement 
icrites, le programme ne sen 
apergoit pas toujours et peut 
planter a la lecture du fichier de 
rigles (erreur d'execution ou 
bouclage). 

Ce systime expert est tris 
rudimentaire (par comparaison 
car il est dSja complexe), aussi, il 
ne sait interpreter que des 
assertions vraies : 
Ainsi, dans le cas de : 

(12) => (3) 

(H) ==> (4) 
si Von vtut confirmer (4), it 
demandera successivement : 

1 vrai ? 

2 vrai ? 

3 vrai ? 

4 vrai ? 

Meme si Von affirme que / est 
faux, il dema/ulera (car il ne sait 
pas le deduire) si 3 et 4 sont 
vrais. 
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Lesfichiers 

Le fichier GEOMETRIE 
s'interesse aux parallelogrammes 
(#), rectanges, losanges, et 
carres. 

1 ,e second fichier est une 
demonstration de base du 
theoreme de THALES, pour cela 
le programme est eflicace 
settlement ou presque avec les 
hypot£ses 1,5,6,13 et 10, 
c'est-a-dire : Soit ABC un 
triangle I milieu de AB, IJ//BC et 
J sur AC et K de AB tcl que 
JK//AB. Alors le theoreme dit 
que J est milieu de AC (et K 
milieu de BC). 

Sur ce fichier on n'a pas pu 
mettre beaucoup d'autres regies 
car elles auraient fait boucler le 
programme . On voit ici que, 
mcmc sans variables, avec des 
equivalences, on arriveraita 
d'exccllents resultats. 



Fichier FAITH ALES. TEXT 

I milieu de AB 

J milieu de AC 

K milieu de BC 

T apparti&nt AR 
J appartient AC 
K appartient BC 
IA at IB meme longueur 

IA et JC meme lonqueur 

KB et KC meme longueur 



JK 


// 


AB 


JK 


// 


IA 


JK 


// 


IB 


IJ 


// 


RC 


IJ 


// 


KB 


JJ 


// 


KC 


IK 


// 


AC 


IK 


// 


JA 


IK 


// 


JC 



IJ et KB meme longueur 
IJ et KC meme longueur 
JK et IA meme longueur 
JK et IB meme longueur 
IK et JA meme longueur 
IK et JC meme lonqueur 
IJKD parallelogrammc 
IJCK parallelogramme 
JKIA paralleleqranvne 



Fichier REGL THALES. TEXT 

(14.12) ==> &5) 

(25) (22.19) 
(1) ==>(4. 7) 
(7.22) —> (21) 



(11.21) ==> (27) 
(13. €) (14.15) 

(10.4) — > (11.12) 

(27.5) =-> (23.17.16) 

(15.18) — > (26) 
(26) ==> (24.20) 
(23.24) => (8) 

(8.5) ==> (2) 

(20.19) ««> (9) 

(9.6) (3) 



Fichier GEOMETRIE. TEXT 

1 On est dans le plan 

2 On a quatre points 

A,B, C,D 

3 (ABCU) est un 
quaciri lat ere 

4 Lea cta£0d opposes sont deux 

a deux paralleles 

5 Deux cotes opposes sont 
paralleles et de meme 

1 ongueur 

6 Les diagonales se coupent 
en leurx milieux 

7 (ABCD) eat un 4 

8 Les diagonales ont meme 

longueur 

9 Deux cotes sont 
orthogonaux 

10 (ABCD) est un rectangle 

11 Deux Qt>fMSt nnnsecuti fs ont 
meme lonuueuz 

12 Les diagonales sont 

orthogonal ss 

13 (ABCD) est un losange 

14 (ABCD) est un carre 



Fichier REGLEGEOM. TEXT 

(i) 
(2) 

(4+5+6)* (3) — > (7) 
(1.2) ==> (3) 
(7. (8+9)) => (10) 
(7) * (11+12) — > (13) 
(10.13) => (14) 



Programme 'PICOEXPERT' 

Le synnbole indlque la continuity de la ligne. 

p-jiograh MOflUHUf (• Av«c «rb»s da eenif 

ition* ET mt otj ') 

CONST HriAJl-S>; fl— 1000; CW-103O; 

xrrt cooideca-set or chap. 

P CELL -'CELL ; 

PASBRE--ARSREf 

HEGLE-RECCRD 

CONDIT:PCELL.- 

KSHttiHIHIi 

UiO; 

LUTE -RECORD 

JUiai-r«Trnr».- 

END; 

CELL-RECORD 

ADRC:PAR3RE; 

S0IV:PC£U: 



IHTOi IMTECEB; 

PC- ?*S»SBt : 
ED i ? ARB BE : 
END; 

VUi 3ASE.QUXST:c«5,aASEm,QC'ES7RE7:?LlSTE; 

jiGLUitnoiz: 

Sr:ASJLAY;:..WlAXI OF STRING; 
HOHFI2,HOMF1 : STRING; 

iMv,nca«, newt, as, trL, tr», scii,c».ci,co:cba*j 

imntl IMTE«3E*. 
PICE .TEXT/ 



(a PROCEDURES USUELLES DE FCH'S — — — •) 

PRDCEDOIZ PKNINTO; 

BEGIN BCHEi-CBR(12) ;ErB:*CBR(ll ) ;EFL:-CBR(2 S) ;5j 
5:-CHR|S); 

CRr-CM (13) ;S«:-ca»(7);IltV:"CnA (l») ;SORttJ 

EHD/ 

»anr»noar »ttss{U, V: *wttgps;s f.vnmc;»r tntprpsj ; 
BEGIN GOTOXf(U.V); 
CASE K or 

: WRITE (S); 

1 : WRITE (5.EFX1 ; 

2 : *RITE(3,EFB); 

3 i kbitc (a.aui 1 1 

4 S MITE (3,»rL .SZU) 1 

% i miTEtfi.CrB.eCM); 

< i HmTE{IKV.5,MOHH) / 

7 : lUITfc (1MV. S.MniM, T.M.) ; 

9 i HH1TE I IKV. S . NORM. £FB) : 

9 ; WRITE (IKV, S,HORH, SOU) ; 

10 i WITI(mV,5, NORM, EFL, SOW); 

11 I M»lTE(IMV,S,MORM,SFB,SCW|; 
END; 

mo i 

j?.CCE3UaE MEM i2 .3T3IliS) . 

"--?■.■::.£>:.■?'■■-■ 

reasotna! rrMEBB.- 

BEGIN HESS (0.23, * ',1};EHD; 

PROCE3URX PREHRXTORll; 
VAR SORT : CHAR; 

BESIK GOTOXX{0.23) ;MiITE( ' "Xetuin" pour canLlJ 

nuar '); 

XEPCU 

READ (REYBOAKO, SORT) , 

Umit . .v- ■ 

LVD: 

rUKCTIOH PaENCMMBOKENSiCaorDECA) :CflAR; 
VAR CB i CHAR; 

BOH : BOOLEAN; 
BEGIN 
RfcrtAT 

READ (MTDOARD, CO) ; 

IT COLM(KEYBOUID) 7 HEM CB>-C«; 

SC-'Ui-CB tU BCiirtJl/ 

tr HOT nm TREM miTPISONl 

ELSE IP CB IN I* '.-"r'] TBEN HPITtj 

(Cfl); 

UNTIL BCN: 
PREWAR :-CB; 

EHD; 

unLiiuB uui:oujllai»; 
unoi 

OOI:-rBCHCAI\( 5 •©*, 'It', *o", IH I'O'.-o'J 

U 

NVITELN: 
EHD; 

PROCEDURE PRENEN7IE*(LCMGMAX:!NTEe£P;VA» SiIHTEGErJ 

); 

VAS 51 : STRIHCI1]; 

I I INTEGER; 

Car? : STRING; 

EHSCBir tCSOIOECA: 
BEGIN 

EWSCBIFi-l '0- . . '9"],-Sli-' • (COTTi - * •/ 
REPEAT 

IF LEMCTH |CW1) "0 TEEN ? 1 [1 J i-RlPMrRa (FMSCHI 
if- (raj ) 

ELSE IT LENGTH (CCMT } -LOSCHAX THEN lt{t)tj 
-PAENCAR(ICa,B3|) 

ELSE sni):*rBENCAR(ESSCairt{CR«BS)] 

).- 

IT 51(11 W ENSCBir TBEN CCWTr^rONCATICCtrr.J 

t« 

ELSE JF S1|3J-B5 TEEM BEJ31N 

HSITEOC ' ',B!li 
eeiete(ccwt.liiwctJ 
h (rrwTi. i)r 
END: 

UNTIL fi(11"CIU 

IF LEBGTB(CCHT]OC THEN BEGIN 
5i-B; 

FOR I:-l TO LEU GTS (COi 
NT) DO 
BEG III 

3.-S'l0,3.-a-IOBD ICCwJ 
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(NO J 
EMD 

ELSE HRITE(B)- 

END/ 

PROCEDURE PRXNCEAINE fUMCMW i INTEGER; BGNEN5 iCBOIDCj 
CA.'VAR 3 -STRING) | 
VU 51 :STBIK(l]i 
COST tSTRIKC; 

BEGIN 

sn»* •;coni- , "i 

repeat 

ir ixmctn i«Hm -a thes ei i i i i-f&emcar (rodehr • ij 
tail 

ELSE ir tEMCTBICCHTl-LOKCHAX THEN 3 1 1 1 ) •-I'REl 
NCABHCN.BS]) 

ELSE 31 [ 1 J •-PRE»CA1(BC*EN5-!CA.BS]); 
If --- : ID BOH EMS . .• v 
COBT : -CONCAT |COMT, 51 ) 

ELSE ir »1|1]-BJ TBIH BEGIN WRITE (BS. J 

\»3); 

DELETE(COtr*.L£NG¥E(COB7). II J 
EMM 

UNTIL 91 IIJ-CMV. 

ir LEKCTB (CCNT) <>0 - - 1 ' I - ^ : 

EXflt 

END; 

|. WITIW.ISATICW3 DIVERSE5 'J 

PROCEDURE LIRE IV Ml : S7RI1 
3ECIK UIGUR (FICH, LR) ; 

WHILE (HOT EOr(FICH)) HID ||LH--*1 OR ' J I Oo/ 

maiM tf icti in> r 

CMDj 

•arrmair i.tir-ir.ci.r.-m>WAtBr 
PROCEDURE ECRITEST;FOAtMARDj 
PROCEDURE I N I T ; 

COHST DIRERR-'Hal orthographla ou nauvalsa dlaquatj 

tm't 

VAR LM I STB IMC; 

VRA1 :BTOLEAM; 
BEGEN 

mtHiHroi 

IUCtHIILfRECLE>:Hll&;QVESTI'»iSt-HlL;|tBrAITff-Or 
KB I TP (HfKr.) -MESS (10.1. ' SYSTEMS EXPERT " . (> ; VRAI 

1-si-') 

MESS (0, 10. 'La fLcMar da faLca itr< an drlva 2", 1] j 
HESS(0, 12. ' Indlquar ion non •«*)■ 1* priflxa da dilj 
va\ l)i 

MESS 10. 13, 'at BRUM la iutri«a " . TEXT" * . 1 J 7 
REPEAT 

HE33(C, IS. 'Hum du IlUa-i ut* PalCa I "iH/ 
rREHCBAINC(», J> •..'■•) .NCWriaj ;ErMEAR- 
KOHr^i-CCMCATI-ISi'.HWriJ. '.TEXE-I: 

RESCT(riCB.KCMrE31; 
VBAt •-■QRESULT-Ol 

IF EOT VRAI THEM HERA (DIRERR) 
ELSE 

WHILE MOT EOr(riCH) DO BECIM LIRE(LH) : 

IF |(LMO"l ARID (LN<>- *)> THEM BEGIN 
HBFAITS :-NBrAITS*l ;BF|i 

M3FAH51 

■RITELN'WBTPUTJ. ■ — >J 

•.oriMsriHTcjii 

EMD r 

zvB: 

risttp inn*} / 

UN7IE VRAI.' 
HES3(0 ( 3.- -.2); 
VRAI: -FALSE; 

HESS (0. 10, ' '.a richlar da rag las aara BUSSl an drivj 
KI33<0. 13, "aa-ia prttlxs nl luirixt", IJ ; 

ALP LA I 

klbs io, 16, HOD au ricniar a* ragtaa i *,1); 
PREMCnAINE(>0,|- •..-«•!. «HTl|;tmiW; 
NOHP I i-COMCAT ( ' #5 . * , NCMn , - .TEXT") i 

J ~ 1 ■ . | j 

VRAI --TORESULT-Oj 
IF HOT VRAI THEM KERR (DI RERR1 

ELSE MILE NO? lOTiriCll X LIUUCLE: 

CLOSE (FICfl) ; 
UNTIL VRAI; 

■ RITE (HOME, *Var If lcat Lon toi rag las (O/M) • '); 
IF OOI THEN BEGIN HRITELM;WR3TEU;ECRITE9T;?RXKRETJ 

dot/sroj 

HtJBj 

(• - Proea-duraa d« unlpultclan io - dlvarcaa . : .- ■ 

FUHCTIOM HEHBRELIS7 (I ; ZHTECERI.'L IFLISTC) :BO0LEAX; 
BECIM 

IF L-NIL TBEH HEHBRELIST : -FALSE 
ELSE BEGIN 

WHILE (LONIL) AMD (lOL'.ADRIl DO Lf 
i-L-.suiV; 

KtMBIXl.l»Ti-»rOT(t-IIIL» ,- 

nin. 



rJSZ-l ZH ME«3«ECELLlAi?AA3RI;C:PCELLh :5COLEAJi; 
BEG IS 

IT C-n; L TBE» : . — rAL3E 

ELSE BECIM 

■■tif tr*»mi.) wn i***r« tnar) r« rj 
i-:-. so TV; 

MEMSftECEU.:-KOT(C-NIL) .- 
EMD; 

EMD; 

rJSCTIOH AJ03TL:S7(I!:M7ECER;L:FLI3TE);PLISTE; 

vaa rtavrat 

BECIM MEW(?| j P* .AQKII-I.-F* . SDnfi-L; AJOOTLIST i-P;E)lJ 

»i 

rUMCTICN AJCUTCELHAiRARBRE:CiP>CELL1 iPCELLr 
VAA f : F CELL ; 

SEGIH MEW |p); F" . ADBC :-Aj **• -SU IVi-C; A30UTCELL i-F; EmI 

d>; 

rBMC? IOM AJOOTRESLE(CiFCCLL;Ai?LimrRiPRECLE) iPREj 
-CLE; 
VAJt .i. . 

5ESIM KCM (P ) ; P* ~. :. - Z ; F " . ACTICM .—A.- F * .3U1V.-B, J 

j. t ■ TBTECEB) tBQOt-EAM I 

VAR LSTB:FLI9TE; 
BECIM LSTS:-BASE; 

WHILE . LSTBoMl L) AMD (IOLSTB" .ADRI) DOLSTBi-LBtI 
B-.SOIV; 

EAISTE : -WOT (LSTB-MEL) - 
EMD; 

FUWCTIOM PLACER (I I IWTESER .- APT ICS ; CSAM ) I BOOLEAN: 

VAR S;rTRIHO.- 

BECIM 

IT AFFICB-'D* THEM S:-'On «fl dxdalE 1 

ELSE Si-'On DlRC* Im tmSt 'I 
IF EXISTE(l) ?S£N PLACER: -FALSE 

ELSE BEGIN SA3E:-AJ0a7LEST(I.BASEl;PlJ 
ail- - - 1. - 

mri7elm(s, 1mv, * •,b»f[ii." '.mobmj 

) ;MRITELN; 

lad; 

■JBBj 

P1CCEOUBE EBLEVC (I t IMTTCER;VAR XiPLISTE) ; 

vrr Y.rPHrrtF-MCTEi 

FASVUt BOOLEAN: 
BEGIN y:-E;T?ItEC:-X;PASVO:-T»OE; 
WJILE (TONIL) AMD PAS VI! DC BEGIN 

IT I-Y'.ADRI TEED IF *■» TUN BtCia X:-X".5j 
O IV ; F ASVO : - FALS E ; E3I D 

ELSE BEGIN PA3VU: -FALSE; VFl 
MC.jyiVi- 1~ ,a01V; 
EflOi 

rpnxc.-Tj»i-f.«oiv; 
EBVi 

run.- 

(* las oroeadurti da conitructlon d« l'arbr* d* 

• COBdlXlOflR •! 

FV0CEDQU COB5TR0IRX (DEPART :STR.IMG; VAR EXFR. : FAR3AE; 
VAR ■: INTEGER.); 
CONST FA5N OMBRE- 990 | 
VAR NUtAM iiHTtum; 
CAR ICBAA; 

PKOCEOUBt LI CAR/ 
NTGIM 

ir H3CAB<-LEMCTHIDEJARTI TEEN BEGIN CAR :-DEFART IHU! 
CAR] ;HCCAI :-NOCA**l ; 

TF CA*~' 1 TSOf UCAJt; 
END; 

END; 

FROCXOORI EXPRXSSIOM(VAR EEFR : FAR9RE; VAR H; EHTEGEBJ 
I ; iORMABC; 

PROCEDURE H0RS3(VAR PMRi PAAORE; VAA H.inTCOCR); 
VAA IM3.3ET Or 
V>PAABRXi 

F.rrOILLXl IWTSCER; 
RECtM r»a!-t*5*..-f IiFTUlLLt:-0;P:-MUCAR/ 
■H1LE CAR IN ENS DO BEGIN FED tLLE 1-10 "FEUILLE'OPD <l 

C«) -ORDfO'l; 

LI CAR; END; 
MEM{V)lV.FC:-NIL;V* .FDiHf IL; 
ir m>CA»-» THEN V'.lNrOi-FASiJoHSW 

ELSE BEGIN V . I MFO: -FEUILLE;N :-Nt 1 ;EMD: 

FMfl:-V; 

PROCEOURE KERR ( I i IN? ECER} / 
BECIN MRITXLil(SOM)f 
cash l or 

li NlITXLlirtrrBiir da lyfttajca. ll b«de braudr-p umI 

"I" .'li 

2: MR1TXLM ('Erraur da ayntaxa, tl paut aanquar una! 

" (" .'»J 
END; 

MR ITELM (SON) | 
uu; 

?ROCEaUR£ FACTEOR (VAA TACT t PAABRX/VAA M i IBTECCA} i 
VAB VI ;PAR3RF.- 



BfcUin Mi:-0; 

KBR33 (Vt.Wt) ; 

IF (Vl*.IHrO4i-FASH0>QRE) THEM 1ECIK FACT I-Vl iN I-Wll 
;EVD 

ELSE BEGIN 

ir CAR- ' ( ' TBEH BEGIN LICAR; j 
EXPRESS IOH (VI, HI); 

IT CAR-' ) ' TEEN BEG 1M ij 
ICAR; 

rACT:-Vl;Ms-Nl; 
■'- LLSL KERJLUI . 

EMD, 

END/ 

FRCCEDURE TERMEIVAR TEBt PARBBE ;VRR H ; INTEGER) .* 
VAN M1.N3 i INTEGER; 

V1,V2,V:FARBJIE; 
BEGIRT Ml:-0;K2;-0; 
FAC7EUR(V1,N1); 

MB1LE (CAA-'.-J DO BEGIN LICAR;FACTEUR(V2,N2) ;MEH|f 

V);v*.iiiroi-ET; 

v .pai-vi;V.roi-vi*wi .-»i-wi,vi.-v, 
E»0; 

TIR.-VljB.-M!, 

rnn; 

FRCCEDURE EXPRESSION; 
VAR Ml . H2 i INTEGER; 

Vl,V2,ViFARBBE; 
BECIM Ml i-D;M2!-0; 
TERHE(Vl.Nl); 

■BILL (UAA- t ) CA9 DIAIN i ICAA; TEAnE ( Yl , P2 1 . Vt* (V| I 

iV.EMPOt-OO, 

v-.rc(-viiV.roi-va»wii-w5-Ha/vii-vj 
EMD; 

EKPRl-Vl.-Ni-MW 
END; 

BEGIH 1» oonatmlra ■) 
NDCAX:-l;EXFR;-MIL;N:-0; 
LICAlt;EXPRESSIOH(EXFR,N| | 
■-•<:'• tin ; appal da pleondit *) 

(• — L« deduction i =-..-.: -a j<> avwt •( 

FOMCTIfW TWnirCT. ( RP.C1.R I i BOOLEAM I 

VRB X:FCELLI 

VRAI I BOOLEAN 1 

rUBCTIOH TESTARB(RACtFARBRE) : BOOLEAN; 
VAA TCSTiSOOLOUl; 

INFOBAC: INTEGER; 
BEGIH INFORAC:— RAC*. INFO; 
CASt IwrORAC W 

ET I IP" : r ;•: *_- - (RAC* .PC) THEM TE3T.-TE3TARB(RaJ 

C-.TD) 

ELSE TEST I -TALSE; 
00 I TV wmiTTSTRRRIRAC-.rC)) THEN TEST :-TESTaI 

aaiRACroi 

ELSE TEST: -TRUE; 

EMD; 

IF INFOJIAC IN U..MrAI?3) TIEN TESTi«*1EMBrE1I3TJ 
(lMFORAC. BASE) : 
TEST ARB : "TEST ; 
END; 

BEGIN X:-RZ«LE*.COVOITiVRAIi-TRUE; 

■BILE (XOHIL) AND VRAI DO ir TERTARB (X- .ADRC) TRrJ 
K Xi-X'.SOIV 

EL5L VBAli*r*X3t; 

TEST*»EGL:-V1AI: 
END; (* 7E5TREGL ') 



rVNCTION DT ILISE (RXGLE: FREGLE} : BOOLEAM; 
VAR CONCLUSIONsFLISTE; 

VRAIi BOOLEAM; 
BtCIl CONCL03 10N:-REGLE*. ACTIO*; VRAI '-FALSE: 
HHILE tCORCLUSIONONIL) 00 BECIM 

IP PLACER (CCaCLOSIOW .AORI, 'D'J 

) TflEH VRAI .-TRUE. 

CORCUJS IOM i -COMCLUSIOM ■ . SO TV f 

END/ 

Q7ILISE:-VRAI: 
END: 

FRCCEDURE DEDU1T; 

VAA CON7 IHUER - BCCLEAN | 

FUNCTION CBA INAVANT : BOOLEAN.* 
VAR LSTR: FREGLE." 

VRAl ! DWLEAM ; 
RESIN LaTB:-RXiiLLS;VAAi:-rAL5E; 
■OILE ILSTROWIH 09 BEGIH 

IF TESTBECL tLSTP.) THEN IF uj 
TELISE (LSTR) TBEH VNAI;-TBUE. 
H*FRf-L«TR" .SOIV/ 
END; 

C BA I N AVAN T : - VRA I ; 
EHD: 

BEGIN 

HttM L*l*TI NUER'-CBAINAVAMT;UN7IL MOT (COMTIHUEft) 
END ( 

■-<i -, DEtKJ IltEf 
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VAA BYPCTHEIE, I i INTCCERl 

FUNCTION POSSI3LE=BOOLEAN; 

VU OK :B CO LEAH; 

BEGIN 

OKi- 1HTP0TBESE I» [0. .HSFAITS}) ; 
IF HOT OX THEM MITE (SON); 

ir hipothesexiu then mii7HB5 r ■ ( eaf 

ELSE- NR17E(B3,8S, * *,BS,BS); 

DID) 
BEGIN 

WRITE (BoHEl ; 

HESS (0, 3. 'Dannar voa hypo-h*a*s sous forma d''antij 

ara (0 poor quit tar) .'(0); 

KRITELNfWRITELN; 

REPEAT PRINEhTIER(2, HYPOTHE5E) .'UNTIL POSSIBLE; 

it nirJiDULoD raLW bl&im : ",J 

»r ( avr OTBuc) i j cud, 

WHILE (HYPOTBESEX>0> DO B=C*H r .«_:;.-■_.: 1 1 - : (HYPoi 

Tnwr. nbsfi ;mrrr.i,Nr 

REPEAT PRENENTIER (2.EYP0TBXSE) : - ST. 
1L POSSIBLE; 

ir BYpOTheSEoO THEN BEGEM 

WRITELN (Ii2, 1 i \BfJ 

IBYPOTEESE] ) J 

END; 

END? 

DCDOIT; 

EMD) 

(- l' induction : chainaa* arrL«r« •) 

FUHC7I0H PRQOVREGLE (LSTR:PREGLE) : BOOLEAN .'FORNABD; 

FUNCTION VERIFIES (FAIT i INTEGER) t BOOLEAN; 
VAR LSTRiFRECLE; 

FAUX. I ! BOOLEAN; 

ctcaodu 

DCGIN rA\UXi— TOWEi LCTR i -RECLEE/ 

ir HEHBRELIST (FAIT. BASE] TRFW r*n¥i-r»7sr 

ELSE MHILE iLSTRONIL) AND FAUX DO 
IF MEHBRSLIST(rAIT,Lm*. ACTIOS J TflES IF JROUYIKlJ 
L5TR] TEEN FAUX: -FALSE 

ELSE LSTRi-LSTR'.SUIV 
ELSE LSTBl-UTA'.SOlVr 

ir FAUX AMD (NOTIMEMBAELISTIFAIT, QUESTIONS) )) THEN/ 
BEGIN WHITtLMf 

wn.nz< ■ i- '.ikv,' • ■ BrirAiT] , ■ -J 

, HDRHi * ~- vnl :■ •>» 

XT CO I THEM Brmi wa tti t ; -p' .xrra (fJ 

JUT. *C'i ;FAD)C:«FALSE; 

END ELSE QUESTICK5:»AJ00TLIS7(FAIT] 

.QUESTIONS) ; 

END.* 

VERIFIEFU-H07 FAUX; 
END; 

rUNCTICM I I : .'. . ' . OOLEAN; 

V7»R HirORACi IHTECER.- 

BRAC i BOOLEAN; 
BECIN 

ISFORAC:-1IAC-.InF0j 

case inforac of 
et 1 if pb0ltvar3|rac*.fg) then 3rac:-?rouvar3 (raj 

C'.FD) 

ELSE BRAC : -FALSE; 
00 r IF HOT(PROOVARBlRAC-.rS) | THtfl BKAU i-r«lAJVAj 

ASfAAc~.ru) 

ELSE BRAC.^TRUE,' 

mot 

ir iNronAc » |i..nBr.\rrsi then braci-verifiebiimJ 
rORAC) ) 

»annviB-i--»BAf;; 
EHD; 

FONCTIOM PROUVREGL; 
VAB LSTCA5:?CELL; 

VRAI. I i BOOLEAN; 
LAC? :PL1STE; 
-A.U1B LSTCA5:-'L"T»'.CC«IDIT;V-AIi-T-.0E; 
MHILE (L37CA~<^HI1.) AHD VrUtl SO 

IT pnCCVMa(L6TCAS".AORC) THEM lstcas;-J 
LSTCAS' .SU1V 

ELSE VRAI; -FALSE; 

PROUVRESLE ;-VRAI ; 

ir VRAI TBEN BEGIN LAC7:-LS7R- .ACTION; 

MHILE ILACTONIL) DO BEGIN I:-PLACER(J 
LACT'.AJJRI, '0') i 

ENLCVE (LACT* .ADRI. QUESTION5) ; 

UBS* : -lac : - . a u I u ; 

BNBf 

CIIO ) 

EMP; 

PROCEDURE COHFIRKERr 
VAR I : INTECER.- 
3EGIN WRITE (BOME) ; 
BE? EAT 
COTOXYIO, - ); 

WRITE ( 'Qua voulai-voua deaontrar 1 1 . . ' .NBFAITS, J 
*| ? *) .'PRENEirriERI?. It I 

ir HOT|l IB |l..!«DFAIT-)> TDXJI 0EO1I' MR 1 TC ( SON ) / 

ir ]>9 TEEN MM?fi(BS,BS, ' -,BS,BS) 

ri_SP WI1TP(BS, ■ '.BS): 



I IV II ..HBPAITS] r 
NRITE IBOME1 sWRITELN (*A HDNTRETl i ' ■ BF ( 1 1) ; 
IF VEAiriERII) THEN BEGIN WRITELN; 

MRITE( , L"hypothA«« '.IHV,* ".BFIIU; 
HRITELM ( ' * . HQRH, * a iz« daaonlra* .').' 
END ELSE BEGIN WRITELN* 

HRITE3-WISOW, -Bypotti*!* no- prouv-*-),- 
EBU; 

END; 

Un 'bug 1 dans le 
"carnet d'adresses" 
du numero 27. 

Les utilisateurs d'Apple //e 
4tendus ont certainement 
constat^ que, sur leur 
machine, le programme 
"Carnet d'adresses" publie 
dans le numero 27 de Pom's 
un petit defaut : le composeur 
telephonique ne fonctionne 
pas. Pour pallier cela, la 
variable IC de la ligne 1 0240 
doit §tre rnise a zero. 

Un grand merci a Monsieur 
Guyot - Sainte Eulalie en 
Born - 40200 Landes, qui 
nous a indique ce defaut. 



{• J*a p-oaaduc* Jc laav-ra Jva -agla- -I 

aaoCEQUBX BLCOMDITISiSTBIHGrVAA L5T :PCELLV ; 
VAR LC.I.J.H ilNTECEB; 

NPROD, FAuX:BCOLEAN; 

DEPAR7:STRIHS" 

EXPR : PARS RE. • 

DJ.U.X i?CELL- 

v,i :rLi5TX; 

ntiilN lA>:-LUtU-Ilt(*i) ;LST-"«LL;X:-mL-Y:-tllt.;l:-l- 9*1 

-1 jHF-tOO.-TPUE, 

REPEAT 

(I^—LC) *M*i nrt tf - [Tj — '•' THF.N MPao! 

Di -FALSE 

ELSE I:-Itl; 
DEPART i -COPY |5 , J, I -J) r OOBSTRUI BI (DEPART, EXPR , N ) ; 
If <»QT(!ieRCO))OR)J<>:) TEEN 3EGIH X:-AJ0UTCELL(| 
EXPR , X) ; f i -A JOCTI.1 3? [M, Y) ; 

J:-I-l;I:-I*l;NPHOD:-Tf<UE; 
DtO ELSE - : . : - A . . - . : - . .. I ' a- - . -: - 1 .'i 
(■ On placa la mol *) 

UNTIL (I>LO>.- 

ir XollIL TBEN BECIS : -' • ->;:; ■ 

wbili (uowil) do ir kembbecelliu-.adbc.dJ 

J) THEM BEG III 

V--V.SOIV; 
U:-0".S0IV: 
END ELSE BEGIN 
IF V'.ADRI>M TEEN Nr-V.ADRI; 
V:-V . SUI V; i -U - . "O I V; 
RtaOj 

IF M-r>0 TBEM BK=IW O s-X: V; -*.-rAUW---'BI1E; 

mhti.e (n<»wit.v un paux no 

IF KEKBRECELL1U--ADRC.DJ) TEEN BEGIN J 
U : —U * . 3U IV ; 

Vi-V-.3UIV.-EMD 

ELSE 

IF V.AORl-W T8EN FAUX t -FALSE 
ELSE BEGIN 
g:-u-.suiv.-v:-v-. 5uiv;cnu; 

IT MOT FAD* THEM 0J I — AJDUTCELLIU" .Aj 

OBC.DJ) i 

«ft; 
UNTIL M-0; 
LSTi-DJ; 
END; 

END; 

PROCEDURE FLACTIOH (SjSTHINC'VAR ACT:PLISTE1i 
vax '.'i- : BEf ur '0' , , ' 9' s 
LtlLISTE. 

LC. H, I i IMTESEBi 



nrciN T.--Vi'.;rjlB;-I '0". . 'B' I;tC--T.r«CTB (S) ;ti»l: 
WHILE |I<LG) DO ir S [I] IH I* I' r ' t ' \ TBEN j 

Ii-I*I 

ELSE BEGIN H:-0; 
W3ILE S IE] IH ENS DO BEGIN Ni-10"H»OB: 
D(5{I])-OR-}('0' ).*I:-I»I;END; 
U IhOUJ 7 a Li Li-AJUUTLIB'I'IM. LI 

ELSE aRITELM ('Erraur 4 m ■acrj 
Uui* dm.1- ' . 3, COR. (7) ) ; 

ESDj 

RrTr-I.; 
EMDr 

PROCEDURE LIRErCcXE; 

VAR CHACT. CECONDI. LN;S7RIN5; 

FAUX : BOOLEAN; 

I : INTEGER; 

LS7:PCELL; 

BEGIN i:BE(LM);rAUXi-IBUEi li -LEMOTB(LN) .-MRITELN < '-J 
-> '.LUtl 

waiLE (i»fl) Ran fritx on tf i.m|t}--v trfm F»inf!-r-J 

LSE 

ELSE I:-X-l; 

TP 1>0 TEEH BECIH CBAC-T:-COTY|LH.t*I.LEHCTB(LH)-I); 
CBCOMD 1 1 -COP Y ( LH , 1 , 1-« ) I 
(■ on pant «3oHtar un WSILX gui ■nlavaj 
laa blanca 'lnsux *> 
END ELSE CBACT: -L»; 
PLACTICO (CnACT, ACT) ; 
IT ImO TBEM BECIM PLtoACF/ 

MBILE (PLoNTL) DO BEGIN BASE:-AJOUTLlf 
S7(i*L-.Aj;r.l,B».SL-. r 

PLi-PL-.SUIV.-EHD; 
END ELSE BEGIN PLCONDIT{CBCOHDI,LS7) ; 

RECLES i -AJCOTREGL ( LST, ACT, RECES ) • 
END; 

END; 

. |" — r" roc* dura da variCicacion da conscruccion daj 
a ubl*l •) 

PBnrTriTnF f/thtfst,- 
VAR R:PRECU: 

PAOCEOURE ECRIARB {RACiPARBREt . 
BEGIN 

IF RACOHIL THES 
IF RAC'.EHFC-ET TEEN BEGIN 

ir AAC-.rc". jni"o-cxi tbj;n ueuim axiTt* •('»•* 
ecRiAna (aac- .rail 

-IOIITE(') . '1/ 
END ELSE BECIM ECRIAJIB (BaJ 

WRITE (•."l.-EHD; 
IF RAC-TD-. INTO-OU TEEH BEGIN aUTt^'ClJ 
ECRIARB (RAC.FDlI 
;MRITEl')'f; 
END ELSE BEGIN ECRIARB(RAI 
C-.FD) ;EBUJ 

HO 

ELBE SESIH CCAIAAB {RAC* _FO) . 

IF BAC-.lBrO-OO TOCH mufDI'l') 

ELSE WRITE (BAC-.IMrOl ; 

■rBIABP(BAT- Fn) f 
END; 

END; 

PRCCEDURE ECR1RIGLE(R:PREGLE); 
VAR X!?C£1LJ 

XiPLISTE; 
BEOTM Xl-»- -CONDITJ 

HSILE |XV>MIL) DO DEO I H KAITE C < * ) . ECBI ARD (X* . AOBcJ 
)IHBITE('| ') l 

Xi-X-.SUIV;ir (XOMIL1 TBEN M ITE ('■'); 

TMO; 

WRITE ( * — > t'\ jYi-R". ACTION; 

WBIU IYOHIL) DO BEGIN tni7E(J- .ADRIJ ;H :-Y* -3UIV; 

IF lYoHIE) THEN MRITE I ' . ' ) r 
END,- 

WRI3ElH('J ') .-MRITE1H; 
END; 

BEOIN (- aMBtfrHtt •) 
iii-RECLEd 

WHILE |B<SM1L) DO BERIM tr tTBFni.r (B) . B (-B - . «UTV;FM| 

n; 

END; 

{• PROGRAMHE PRINCIPAL '» 

BEGIN 

INIT.-DEDUIT; 

BAStRi:r:-OASE;QUE3TREBi-WE»TIUa«ai 
REPEAT 

WR:TE<QOKE) ,*MECC(2C, 1. * MEND GENERAL '.O/MRITeI 
LH/WPiITUHf 

•TRlTEfOonflmar D)idulra OluiEEar >F 

"II 

CO: -PREHEAR (TC*. *D'. '0', 'C", *d'. "Q* 1 1 ; 
BASE:-3ASEREF;QUE5riONS:-QUE5TREr; 

case co or 

'C'.-c* :CCNriRKEB; 
*D*,'d' iDEDU IRE; 
END; 

w»iielm;mb:ieu*; if co ik [ *c, "D", "s", "d" ] TBExf 

: RERB ETUBM I 

uvtu co tw |*0*i '(Tlr 

END. 
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Micro-In/brmations 



Jean-Michel Gourevitch 



Et si 1987 etait 1'annee du 
Macintosh ? C'est visible- 
ment le souhait exprime a 
Cupertino ou le construc- 
teur a la pomme finit de 
fourbir les armes qu'il 
devoilcra ccttc annce et qui 
devraient lui assurer l'avan- 
tage dans un monde de la 
micro-informatique debous- 
sole par les incertitudes du 
geant IBM. 




Parmi toute une salve de 
nouveaux produits, dont les 
premiers sont apparus en ce mois 
de janvier (et notamment les 
imprimantes laser de bas el de 
haut de gamme), la vraie 
nouveaute chez Apple sera en 
1987 ce Mac "ouvert", dont 
l'apparition est prevue pour le 
mois de mars. Un Mac ouvert, 
parce qu'on pourra aj outer a la 
machine toutes sortes de cartes 
supplementaires, d'extensions de 
memoire, de processeurs graphi- 
ques ou sonores. Et renouer ainsi 
avec l'ancetre, cet Apple // qui fit 
la fortune de Wozniak et Jobs, les 
createurs d'Apple. Les posses- 
seurs d'Apple // ne seront pas 
oublies. D abord parce que le 
nouvel Apple IIgs sortira cette 
anncc & unc vraic cadence 
industrielle des usines d'Apple. 
Ensuite parce que tous les 
nouveaux programmes permettant 



d'exploiter au mieux ses raffine- 
ments sonores et graphiques vont 

se bouse uler dans les catalogues. 

Tout comme les perfectionne- 
ments materiels des fabricants de 
"add-on". Message personnel aux 
possesseurs d'Apple // : ne 
bradez pas vos machines, 
quelque chose me dit qu 'Apple 
pourrait reediter avec l'Apple // 
1 operation de mise & niveau h 
laquelle elle avait procede pour le 
MacPlus et ce pour un prix 
interessant (on parle de rnoins de 
5000 Francs pour l'echange de la 
carte). Esperons seulement que 
l'attente sera moins importante 
que pour les utilisateurs de 
Macintosh. 

Revenons & celui-ci, qui pourrait 
bien etre la machine dont on va le 
plus parler cette annee. Un mot 
d'abord sur ces raises k niveau : 
aux £tats-Unis, de nombreux 
Mac convertis en MacPlus ont 
connu des problemes d'alimenta- 
tion qu'il a fallu remplacer. 
Apparemment, les conversions 
ont ete mieux pratiquees en 
France, car ce probleme ne 
scmblc pas etre apparu chez 
nous. 

L f Apple de demain 
decrit aujourd'hui. . . 

La grande question pour tous les 
passionnes d'Apple consistait a 
prevoir avant sa sortie l'appa- 
rence et les performances du 
nouveau Mac "ouvert". On a vu 
paraitre tellement d'informations 
£ ce sujet qu'on pensait ne plus 
rien ignorer des caract^ristiques 
de la machine : processeur plus 
puissant et rapide Motorola 
68020, port d'extension 'nubus', 
coprocesseur arithmetique 68881, 
memoire vive standard de 4 
Mega-octets. Une autre methode 
pour prevoir les caracteristiques 
des machines du futur consiste a 



examiner ce que les fabricants de 
cartes et de peripheriques mijotent 
pour la machine d'aujourd'hui : 
ces "superflus" seront souvent le 
"necessaire" de la nouvelle 
machine. A ce jeu on pourrait 
prevoir, presque d coup sur, pour 
le nouveau Mac un ecran de 
grand format pouvant afficher 
une page pleine (au formal 
21,5cm sur 27,9cm) voire deux. 
Quelque chose me dit mfime que 
le Mac nouveau pourrait (en 
option, bien sur) etre dote de la 

couleur. Eh oui de la couleur, 
celle qui fait tant defaut, pour 
concurrencer completement les 
IBM. Impossible ? Pas tellement : 
d'abord parce que les memoires 
mortes du Mac contiennent tout 
ce qu'il faut pour cela. que les 
programmeurs des demiers logi- 
ciels parus ont prevu (souvent 
sans le dire) cette possibilite. 

Enfin, parce qu'un constructeur 
(Vernont Microsystems) avait 
con^u, construil el vendu des 
l'annee passee un moniteur 
couleur "intelligent" le VM 8861 
permettant d'afficher simultane- 
ment 256 couleurs choisies parmi 
une palette de 4096. 

Mais la couleur n'est pas 
seulement le moyen de "griller" 
1'IBM. Cc n'esL plus ce creneau 
que Ton vise chez Apple. Dans la 
ligne de mire du fabricant de 
Cupertino, on vise les "stations 
de travail" du type Sun 
Microsystems et autres. C'est a 
ce marche-la que le Mac ouvert 
(parfois baptist Paris) aura la 
tache de s'attaquer. Avec pour les 
afficionados deux consequences 
mitigecs. La premiere c'est que 
par rapport k ces syst&mes 
extrememenl onereux, le Mac en 
donnera incontestablement "plus 

pour chaque dollar depense". 

Mais il faut garder en memoire 
que ces engins coutent 
actuellement des fortunes (plus de 
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250 000 F). Le Mac ouvert 
proposera des possibilites analo 
gues pour heaucoup moins cher. 
Probablement 40 i 60 000 F. Ce 
qui mettra quand meme cet 
ordinateur, et c'est la seconde 
consequence, bien moins 
agreable, hors de la portde de 
toutes les bourses. Mais Apple 
n'a jamais ete un constructeur 
vendant dcs micro-ordinateurs 
Hon marche, is'nt it ? 

Le portrait robot du nouveau 
Mac, c'est done celui d'une de 
ces "stations de travail", 
(connectables a des ordinateurs 
VAX) qui font fureur et font la 
fortune dcs constructeurs. A quoi 
servent-elles done ? La question 
est importante, car de sa reponsc 
vont decouler les fonctionnalites 
du Mac nouveau. Ces stations de 
travail sont employees pour des 
etudes graphiques et des 
prototypes, pour concocter des 
etudes techniques et realiser des 
documents ct, enfin, a commu- 
niquer des informations. CAO, 
modelisation et graphiques d'un 
cote, edition personnelle et enfin 
communications : voici comme 
par hasard les themes generaux 
des deraiers programmes sonis 
pour le Macintosh Plus 
d'aujourdliui, et les domaines oil 
il fcra fureur avee son successeur 
cette annee. 




Des communications 
plus rapides et 
plus faciles 

Juste un detail technique pour 
souligner l'importance du dernier 
cite de ces secteurs la 
communication. La filiale de la 
firme Du Pont de Nemours 
specialisee dans la connectique 
vient de produire un connecteur et 
un rcseau k base de fibres 
optiques se substituant aux 



connecteurs et aux fils classiques 
AppleTalk. Avantage : les trans- 
ferts de donnees s'effectuent sur 
des distances importantes 
(jusqu'a 1 ,5 Km) et a un debit de 
600 kilobits par scconde (contrc 
238,6 pour AppleTalk, soit 
environ trois fois plus vite) ct on 
prevoit de passer bientot £ un 
debit de 1,5 a 3 Megabits par 
seconde (encore 3 & 5 fois plus 
vite), par le port SCSI. Ces 
vitesscs considerables sont indis- 
pensables pour pouvoir faire 
travailler ensemble dcs micro 
ordinateurs, comme tous ceux qui 
les ont branches en reseaux et 
pietinent devant les lenteurs des 
transfens actuels, ont pu le 
constater. 

Les reseaux constituent un 
domaine essentiel de l'avenir du. 
Mac. Aux £tats-Unis, Farallon 
Computer a developpe le reseau 
Phone Net avec un controlcur 
vendu 1000 dollars et permettant 
de relier 12 Mac par des fils 
simples torsades jusqu'i 1 km de 
distance. 

Apple va d'ailleurs venir cette 
anncc k la rescousse en 
fournissant d£s le printemps un 
logiciel de scrveur dc reseaux aux 
performances qu'on dit deja 
spectaculaires. 

La liaison surun r6seau commun 
de Mac et d'IBM PC n'a deja 
plus rien d'6tonnant grace aux 
prodiges realises par TOPS le 
fantastique systfeme developpe 
par Centram. Cette firmc a rcccm- 
ment developpe de nouveau x 
perfectionnements permettant 
d'une part de faire fonctionner 
1'ensemble sous le syst£me 
UNIX, et d'autre part d'autoriser 
les IBM PC du reseau a imprimer 
directcment sur la LaserWriter 
d'Apple. 

Parmi les produits qui installent 
les Mac sur des reseaux, il faut 
encore noter Intcrmail, le systeme 
de courrier electronique 
d'Internet. Un systfcmc qui 
s'installe en accessoire de bureau 
et pennet d'envoyer un message, 
immediatement ou a une date 
choisie, de transferer des fichiers, 
pour un cout de 300 dollars (pour 
1 & 4 utilisateurs), de 500 dollars 



(5 a 10 connects), 750 (pour 11 
& 20) etc. 

Dans le meme esprit, citons 
Symbmail, la messagerie de 
Symbiotic, pour passer messages 

et fichiers entre plusieurs 
Macintosh d'un m6mc rcseau 
AppleTalk 




Et puis, pour finir ce panorama 
des communications, trois 
produits frangais : 

«Charite bien ordonnee...», 
citons d'abord Interpom's 
programme gratuit pour vous qui 
avez Pom's entre les mains ou d 
60 et 80 Francs sous forme de 
disquette Apple // ou Mac, 
programme qui utilise le modem 
du Minitel pour transmettre tous 
fichiers ou applications entre 
Mac, entre Apple // et meme entre 
les deux types de machines. Les 
fichiers sont recxees a I'anivee 
avec tous leurs attributs (types, 
ic6nes...). Qualite Pom's. 

Le deuxi&ne. Self Serve d'ACI 
est un logiciel permettant de creer 
un serveur Minitel en utilisant des 
modems branches cn cascade (et 
notamment les Diapasons d'Hello 
Informatique). 

Le dernier, TransLine 6ditc par 
Bruno Rives & Associes, est un 
logiciel de communication. Sa 
caracteristique principale : il n'est 
pas un emulateur de terminal. II 
peut done etre utilise dans 
n'importe quelle application ou 
presque pour transmettre ou 
recevoir des donnees, qui sont 
automatiquement converties au 
format de Implication qu'on 
utilise, pour remplir des tableaux 
ou recuperer des textcs. On pcut 
aussi communiquer entre ordina- 
teurs par cables (envoyer ainsi 
des documents MacDraw ou 
autres d'un Macintosh k l'autre). 
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Un outil d'edition 
et de publication 

1986 a revele toutes les 
possibilites du Macintosh dans le 
domaine de la publication assistee 
par ordinateur. Et la decision 
d'Apple de ne plus livrer en 
standard MacWrite a libere 
l'imagination de tous les auteurs 
de traitements de textes. Kesultat : 
il pleut des traitements de textes et 
des logicieLs de mise en page. 



Une pluie de 
traitements de textes 

Le plus original est 
incontestablemem FeiMa 
d'Unisource. Et pour cause : 
c'est le premier traitement de 
textes cn chinois pour lc Mac. II 
utilise la souris pour selectionner 
les caracteres de preference au 
clavier, permet de beneficier d'un 
dictionnaire de caracteres pre- 
dessines, d'en ajouter d'autres. 
On peut aussi utiliser la methode 
phonetique transformant des sons 
anglais en caracteres chinois, et 
combiner dans un texte ideo- 
grammes et caracteres europeens. 
Seul defaut : il n'imprime pas sur 
la LaserWriter. Prix 195 dollars 
pour une version abregee et 545 
dollars pour la version complete. 

Pour certains, les caracteres 
techniques seraient presque aussi 
compliques que du chinois. C'est 
a eux que s'adresse TechScriber 
de Mansfield Systems. Plus que 
d'un traitement de textes, il s'agit 
presque d'un syst£me de mise en 
page pour documents techniques 
permettant notamment d'entrer 
facilement les tables, expressions 
mathematiques compliquees, et 
de realiser des manuels techni- 
ques comprenant diagrammcs, 
elements graphiques, etc. Prix : 
395 dollars. 



II n'est d'ailleurs pas rare que les 
traitements de textes deviennent 
de vrais outils d'edition. C'est 
aussi le cas pour Word 3.0, la 
nouvelle version du traitement de 
textes vedette de Microsoft, 
appelee surement h un" brillant 
avenir. Word comprend tout ce 
qu'on peut souhaiter dans un 
traitement de textes ; correcteur 
ortho graph ique incorpore, pro- 
cesseur d'idees lui aussi integre, 
generation automatique d'index et 
de tables des matures, ecriture en 
colonnes et possibilite d'entourer 
un texte, possibilite de visualiser 
sur 1 ecran une ou deux pages 
telles qu'elles seront finalemcnt 
imprimees, possiblite de toumer 
sous Tops ou Ethernet, d'echan- 
ger des donnees avec les PC 
d'IBM en convertissant les 
fichiers au format DCA d'IBM, 
etc. Le tout pour 395 dollars. A 
noter encore qu'aux £tats-Unis T 
Word 3.0 serait livre avec la 
dcrniere version (5 J) du 
Switcher d'Apple permettant 
notamment lorsque Ton change 
un detail dans une des 
applications (par exernple a 
l'intcricur dc MacPaint, dans un 
dessin transports dans Word, de 
voir cette modification se realiser 
automatiquement sur le dessin 
qu'on avail copie dans Word). 

Autre futur best-seller. Write 
Now de T/Maker auquel Steve 
Jobs a prete la main. Un 
traitement de textes comprenant 
un correcteur orthographique de 
50 000 mots, l'ouverture 
sirnultanee d'un nombre illimite 
de documents, l'installation de 
une a quatre colonnes, la 
possibilite d'inclure des 
graphiqucs dans une lignc ou unc 
phrase. Le tout avec la facilite de 
MacWrite et plus rapidemenl. El 
pour 175 dollars. 

Quant £ MindWrite de MiiulWurk 
Software, vendu seulement 125 
dollars, il combine 6galement un 
traitement d'idees et un traitement 
de textes. On dispose ainsi d'un 
traitement d'idees offrant toutes 
les facilites d'un MacWrite, 
pernieilant d'urganiser tout en 
ecrivant, et de voir a l'ecran le 
r^sultat tel qu'il sera imprime, de 
disposer d'une numerotation 



automatique des paragraphes, 
d'un compteur de mots, de 
caracteres ou de paragraphes, de 
la faculte dc deplacer une partie 
de texte avec la souris, sans 
iecourir au copier coller, etc. 

Full Write d'Ann Arbor 
Softworks (les createurs de Full 
Paint) est un processeur de 
documents. En clair, il eontient 
aussi des fonctions d'edition 
electronique. Parmi lesquelles, 
les possibilites d'utiliser des 
colonnes multiples de tailles 
differentes sur une page, 
d'enrouler automatiquement le 
texte autour de dessins aux 
formes irregulieres. Un module 
permet aux utilisateurs d'un texte 
d'inclure des notes dans un 
document pour les envoyer k 
l'auteur (ce module permettant de 
realiser sur ordinateur ces petites 
notes adhesives de style Post-It 
pourrait d'ailleurs etre verse par 
ses auteurs dans le domaine 
public). Full Write qui combine 
des fonctions d'edition qui ne 
figurent pas dans les traitements 
de textes et des fonctions 
sophistiquees de traitements de 
textes sera vendu environ 300 
dollars. 

Ilaba Word d'Haba Systems, qui 
a ete offert pour 69 dollars aux 
possesseurs de MacWrite ou 
Word, permet, lui, 3 colonnes de 
tailles differentes sur une page, 
divise les fenetres en quatre 
morceaux pour voir d'un coup 
plusieurs parties d'un texte, 
affiche k l'ecran quatre pages en 
reduction comme elles seront 
imprimees. 

Parmi les traitements de textes 
annonces, on peut encore citer 
Parangon Word, de Parangon 
Courseware developpe autour 
d'un dditeur de textes que certains 
utilisateurs du Mac connaissent 
sous le nom de Qued, promis 
pour juin 1987. 

Des programmes 
d'edition electronique 
plus complets 

Puisque les traitements de textes 
empruntent les possibilites gra- 
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phiques des programmes d'edi- 
tion, rien d'etonnant s'il ne 
manque plus aux programmes 
d'edition electronique les facilites 
des traitements de textes. Ainsi de 
Ready Set Go de Manhattan 
Graphics (distribue en France par 
BIP) duiula demise version 3.0 
est un complet renouvellement. 
On y trouve m8me un conecteur 
orthographique (en fran$ais s'il 
vous plait) et un guide de coupure 
de mots developpe avec l'aide de 
TUniversite de technologic de 
Compiegne. On peut ouvrir 
simultanement plusieurs docu- 
ments, ajuster automatiquement 
textes et graphiques dans les 
colonnes aprfcs y avoir ins6r£ un 
bloc image ou un texte, lire 
directement des fichiers 
MacPaint, MacWrite ou Works, 
on peut y inclure des documents 
specialement prepares pour 
PostScript. Le nombre de pages 
est illimit£, avec auto-numeration, 
et impression de la date et de 
rheure, etc. 

Feu Mac Publisher est reapparu, 
vendu par la celebre firme dc 
lettrages Letraset sous le nom de 
Leira Page, perfectionne avec la 
possibility de 48 colonnes par 
pages, un espaeemeiit des letues 
controlable, une palette de 96 
motifs disponibles, et de 9 
couleurs, et lui aussi un guide de 
coupure de mots automatique, 
comprenant 93 000 mots (en 
anglais seulement pour le 
moment) etc. pour 495 dollars. 
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Et le petit dernier, Solo de Mac 
America, plus simple, ressemble 
a un banal Finder sur lequel on 
ouvre les different*; documents a 
assembler. Une fenetre pour un 
texte a incorporer, une fenetre 
pour le texte assemble. A noter 
que le texte qu'on ne prepare ne 
montre pas le texte avec ses 
attributs (gras, taille, etc.) mais 
avec des codes. 



Des logiciels 
graphiques 

A remarquer d'abord, llllustrator 
d'Adobe. Si le nom d'Adobe 
n'est pas inconnu aux utilisateurs 
de Macintosh, e'est que c'est 
cette compagnie qui a developpe 
PostScript, le langage de 
composition utilise par rimpri- 
mante LaserWriter. C'est precise- 
ment pour optimiser le fonction- 
nement de rimprimante Laser 
qu' Adobe a developpe Adobe 
Illustrator Ce programme rend 
accessible k des utilisateurs ne 
programmant pas en langage 
PostScript certaines de ses rou- 
tines graphiques. En clair, les 
utilisateurs professionals (et 
notamment les illustrateurs ou 
dessinateurs ) disposent ainsi de 
possibilitcs dc dessin beaucoup 
plus profess! onnelles. On 
commence & dessiner dans un 
mode de dessin, depuis zero ou 
en important une esquisse realisee 
avec MacDraw. Ensuite, on 
dispose dune panoplie d'outils 
pour rcmplir les zones k colorier, 
controler 1'epaisseur des lignes, 
les niveau* dc gris, et meme les 
couleurs (pour preparer la 
separation des couleurs sur une 
photocomposeuse Linotronic). 
Un mode permet de visualiser 

l'imagc realisee avec PostScript. 
Enfin, les dessins sont stockes 
sous forme de fichiers textes 
PostScript. Ce programme tres 
"pro" sera vendu a peu prfes 500 
dollars. 

Du cote des programmes de 
dessins, on se bouscule aussi au 
portillon. MacPaint et MacDraw 
font vraiment figures d'ancetres. 
Voici notamment Cricket Draw de 
Crickel Software, avec possibilite 
de rotation complete de tous les 
objets, ombrages contr61es avec 
une echelle de gris, effets 
speciaux, le tout utilisant 
PostScript, sans apparemmcnt y 
toucher, tout en generant du code 
dans ce langage comme le 
precedent programme . Pour 295 
dollars. 

SuperPaint de Silicon Beach 
Software est un programme qui 
voici peu aurait encore paru 



"incroyable". On peut en effet 
travaiiler sur un dessin indiffe- 
remment en mode MacPaint ou en 
mode MacDraw. Ce qui permet 
de beneficier des avantages de ces 
deux modes. On peut travaiiler en 
plein ecran, ouvrir simultanement 
plusieurs documents, remplir des 
formes qui se poursuivent en 
dehors de I'dcnm, le deroulement 
de l'image sur l'ecran est 
automatique, on dispose d'une 
echelle de gris de 32 niveaux, le 
texte peut etre imprime avec les 
caracteres dc la LaserWriter, il se 
reformate automatiquement 
lorsqu'on change les dimensions 
d'une case qui le contient. On 
peut imprimer en couleurs avec 
I'lmageWriter II. Prix : moins de 

100 dollars. 

Quant 3 GraphicWorks, il est 
publie par Mindscape, 1'auteur de 
Comic Works et de Music 
Works. En fait, il utilise les 
m ernes outils que Comic Works. 
Rien d'etonnant si on peut y 
utiliscr toutc unc gammc dc 
ballons et de bulles (aussi appeles 
en frangais phylact&res). Sa 
grande force, c'est de pouvoir 
manipuler independamment les 
objets de premier plan et le fond 
d'un paysage, de pouvoir 
installer des dessins en 
surimposition. Prix : 80 dollars. 
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A remarquer aussi la version 2 de 
MacDraft dTDD Software. On y 
trouve notamment la possibilite 
de changer la taille des groupes et 
des bits maps de fagon 
proportionnelle, un indie ateur de 
position du curseur, de nouvelles 
echelles de dessin, un calculateur 
automatique de surface, et un 
choix de 64 motifs, etc. Prix : 
269 dollars. 



Pom's n° 28 



71 



Des logiciels 
techniques 

Tr£s importants. Ces program- 
mes sunt ceux oil Ton voit le plus 
l'usage qu'un Mac peut avoir 
pour des sciemifiques, des 
ingenieurs, bref, tous les 
utilisateurs de ces omnipresentes 
"stations de travail". Ce sont 
ceux-ci qui permettent peut-etre 
d'apprecier le mieux l'intelligence 
des programmeurs et des 
utilisateurs. Comme s'il s'agissait 
de torrents de matiere grise en 
fusion. 

Voici d'abord Stella de High 

Performance Systems. Lorsque 
Ton voit dans sa publicite, le 
dircctcur dc la recherche de 
DuPont de Nemours s'exclamer 
«Nous avons des programmes de 
2000 dollars pour nos unites 
centrales qui ne peuvent faire ce 
que Stella fait», ou encore 
1'analyste charge du planning de 
Cray Research, le constructeur 
des plus puissants ordhnateurs du 
monde expliquer que le 
programme les a aide & 
«equilibrer les facteurs qui 
satisfont la demande de leurs 
ordinateurs avec les facteurs qui 
genferenl cette deinande», on se 
dit que le programme doit etre 
exceptionnel. Aucun doute, ce 
logiciel de modelisation baptise 
Stella pour (Structural Thinking 
Experiential Learning Laboratory 
with Animation : laboratoire 
d'apprentissage experimental de 
la pensee structurale avec 
animation) permet d'am&iorer la 
fa§on de penser et de mettre en 
evidence des relations entre 
facteurs, comme un "Lego 
concepruel". On peut simuler des 
modeles pour determiner si les 
propositions gen£rent des 
comportements correspondant 
bien & 1'objet qu'on avait assigne. 
Qu'il s'agisse d'analyser des 
processus de fabrication 
complete, ou comme l'a fait 
Procter et Gamble, d'analyser des 
strategies pour le lancement d'un 
nouveau produit. Bref, une 
manure de miracle pour 395 
dollars. 

Voici ensuite Prototyper de 
Smethers Barnes, un programme 



a sortir en fevrier permettant de 
construire des prototypes pour 
visualiser des idees avec des 
menus des boutons et des 
fenetres qui repondent. Sans 
avoir a programmer. 

Parameter Manager de Structural 
Measurement Systems est une 
matiere de tableur specialise pour 
controler notamment les 
processus de fabrication. Utile en 
milieu industriel. Prix : 495 
dollars. 




Des classiques 
"revisites" 

On pensait avoir tout vu en 
matiere de tableurs. Et qu'apr£s 
Excel, on aurait du mal & faire 
mieux. On peut cn tout cas faire 
deja plus rapide. C'est I'objet de 
Mac Calc de Brayo Technology. 
Qui permet notamment (contrai- 
rement & Excel) de changer les 
caractSres et leurs tailles dans 
chaque case. Ce tableur calcule de 
10 It 15% plus vite qu'Excel, 
permet d'inclure des annotations 
relatives & une case) et dispose 
d'un choix de fonction pour 
moins de 100 dollars. 

Quant a Trapeze, de Data Tailor, 

a paraitre & la fin janvier, il 
presente la caractcristiquc dc 
travailler en "blocs" de plusieurs 
cellules (pour lesquels le 
programme connait les relations 
qui les unissent) et non case par 
case comme la majorite des 
tableurs. D'ou la possibility de 
faire des calculs sans se soucier 
de la position d'un bloc sur une 
page, el de realiser des calculs 
financiers complexes (on dispose 
de 10 fonctions financifcres et 
d'ingenierie dont certaines 
inedites). D'ou la possibilite aussi 
de realiser des presentations 
parfaites. 



Des utilitaires 
geniaux 

Genial, c'est bien le mot qui 
caracterise Glue de Solutions Inc. 
Ce programme permet de sauver 
sur le disque des graphiques 
venant de la plupart des 
applications pour Macintosh, et 
de les ouvrir sans avoir a ouvrir 
1'application. On peut par 
exemple sauver un graphique 
d'Excel, grace a la partie du 
programme baptise Image saver. 
Ensuite, on peut ouvrir ce fichier 
et visualiser le graphique ou 
l'im primer avec l'autrc partie 
baptisee le Viewer. Les fichiers 
sont facilcment cxportables. D'ou 
la possibilite d'expedier facile- 
inent une lettre d'infonnations ou 
un dessins sauves avec Glue sur 
un reseau ou par telephone, avec 
InterPom's par exemple. Prix 49 
dollars. Vivement que cet 
utilitaire (auquel un banc d'essai 
de la tr&s serieuse revufe 
Inforworld a attribue une note 
maximale) debarque chez nous. 

Utile, c'est 1st Aid de 1st Aid 
Software qui permet de recuperer 
des fichiers endommages de 
sauver les donnees de disques 
"illisibles" ou de relire des 
fichiers endommages ou effaces. 
Un kit de 4 disques vendu 90 
dollars et que tout utilisateur de 
Mac devrait posseder. 

Du materiel 

Ces nouveaux ecrans geants 
semblent desormais indispensa- 
bles pour le Mac. Apr&s le FDP 
de Radius, voici le Big Picture de 
E Machines. C'est un ecran 
permettant de visualiser simulta- 
nement deux pages sur 1 ecran. II 
faut bien sur modifier le Mac avec 
une carle qui se clippe sur le 
processeur. On peut alors 
apprecier une visualisation de 
1024 x 808 points avec une 
qualite remarquable. Pourun prix 
helas superieur a celui d'un 
Macintosh Plus complet. 

Un jeu 

C'est & Jean Pierre Brule, l'ex-Mr 
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Informatique en France (mais 
ausi champion de scrabble) que 
l'on doit Anacrack vendu par 
ACI. Un jeu base sur l'utilisation 
de 90 000 mots avec 2 niveaux de 
vocabulaiie 4 vilesses el Lxois 
formes de jeux rappelant les 
principes du celfcbre Scrabble. 



Adresses 

Vemont Microsystems 

1 1 Tigan St Winooslci 

VT 05404 Centram 2560 Ninth 

St, Berkeley, CA 94710 

Internet 

20 Amy Circle, 
WabanMA 02168 

ACI 

6, avenue Franklin Roosevelt 
75008 Paris - TeL : 43 59 89 55 

Bruno Rives & associes 

6, avenue Franklin Roosevelt 

75008 Paris - T61 : 42 89 02 36 

Unisource 

23 East St 

Cambridge MA 02141 

Mansfield Systems 

550 Hamilton Av. 

Suite 200 Palo Alto, CA 94301 

TTMaker 

1973 Landing Drive 
MtView 5 CA 94043 

MindWork Software 

PO Box 222280 
Carmel CA 93922 

Ann Arbor Softworks 
2393 Teller Road, Suite 106 
Newbury Park, CA 91320 

Haba Systems 

671 1 Valjean Ave. VanNuys 

CA 91406 

Lettraset 

PO Box 3900 Peoria, IL 61614 

Mac America 

18032C Lemon 

Dr Yorba Linda CA 92686 

Adobe 

1870 Embarcadero 

Rd N°100 Palo Alto, CA 94303 

Cricket Software 

3508 Market Street 

Suite 206 Philadelphia PA 19104 

Silicon Beach Software 
POBox 261430 
San Diego CA 92126 



Mindscape 

3444 Dundee Rd 

NorthbrookIL 60062 

11)1) Software 

1975 Willow Pass Rd Ste 8 

Concond CA 94520 

High Performance Systems 

POBOXB1167 

Hanover NH 03755 

Smethers Barnes 

Tel.: 

(aux &ats-Unis) 503 24507270 

Structural Measurement Systems 
645 River Oak Pkwy 
San Jose CA 95134 

Bravo Technology 

POBoxTGilroy CA 95021 

Data Tailor 

1300 University Drive Suite 409 
Fort Worth Texas 76107 

Solutions Inc. 
PO Box 989 h 
MontpelierVT 05602 




1st Aid Software 

42 Radnor Road 
Boston Ma 02135 

E Machines 

7945 SW Mohawk 

St Tualatin OR 97062 

Symbiotic 

4, rue Robert Schumann 
94220 Charenton 
Tel. : 43 78 99 99 




JustText suppose la disposition (Tun Macintosh et d'une LaserWriter, 
imprimantc dont bicn des PME sont equipees. Ce logiciel de trartement 
de textes demute par son aspect l reac' pour un programme Macintosh : 
comme avec AppleWriter, vous n'avez pas a Feuran uue idee de ce que sera le 
document imprimc, tout simpl-ement parce que l'ecran ne peut donner les pos- 
sihilites de la LaserWriter ou des composeuses Linotronic. 11 faut done enricfiir 
le texte de codes de controle parfob (!) simples a releuir. Le resullat est une ex- 
ploitation totale de Fimpriniante : dimension et espacement des caracteres, in- 
teriignes, largeur de colonnes sont reglables par point (0,35 mm), et meme 
fractions de point 

Toutes les fonctions classiques des traitements de textes sont disponibles 
(tabulations* indentations), mais aussi les fanlalsies des imprinieurs, Shrine' 
comme Je premier J de ce texte, encadrer un texte ou cadrer a droite une fin de 
paragraphe. . . Les cesures en fin de ligne sont automatiques en suivant un dic- 
tionnaire que vous enrich issez en Fonction des besoins. 

Lorsque lesdifs besoins depassent JustText, vous pouvez modifier directement 
les ordres PostScript avant qu'ils ne soient envoyes a I'imprimante : les timites 
sont alors rimagination de Foperateur et les possibilites de la machine (voir 
Pom's 24). 

Au chapitre regrets : Fannulation du "Colkr" qui n'est que partielle, la limita- 
tion des textes a 32 Ko (penible lorsqu'on incorpore une image dont on habUle 
les contours), quelques petits 'bugs' tels la validation des menus, la difficulte 
d'inserer des 'RETURN 1 au debut de longs textes, les A avec accent grave qui 
s'impriment A. . . Le mode d'emploi par Fexemple est efficace, mais en anglais. 

D'un acces peu engageant, JustText est le programme a utiliser pour les 
travaux pointus. 

Distribu6 par alpha systemes a Grenoble 
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Bon de commande 



Disquettes 



HAIFA source (cf. Horn's n" 5) 4 60,00 F 

DISK-MANAGER (cf. Pom's n° 11) & 450,00 F 

BASICTUM , (cf. Poms n' 13) a 150,00 F 

E.P.E. 5.0 (cf. Pom's n* 23) & 200,00 F 

EchangeE.P.E.5.0 (cf. Pom's n - 23) a 80,00 F 

PASCAL (cf. Pom's n' 15) a 80,00 F 

MAX(Monlteuretendu) (cf. Pom's n" 18) d 150,00 F 

DOMTS'OS (cf. Pom's n' 19) ix 80,00 F 

COGO (cf. Pom's n" 21) & 150,00 F 

LUDOLOGIC (cf. Pom's n' 25) h 80,00 F 

OKU1CO (cf. Pom's n" 26) * 200,00 F 



Recueils 

Kl, recueU des revues 1*4 * 140,00 F 

Disquettes d'accompagnement 1 a 4 — & 200,00 F 

FT2, recueil des revues 5 a 8 * 140,00 F 

Disquettes d'accompagnement 5 a 8 200,00 F 

TO, recueil des revues 9 a 12 & 140,00 F 

Disquettes d'accompagnement 9 a 12 & 200,00 F 

Revues, disquettes 

Revues 4 7 8 ...» * 35,00 F 

Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 & 40,00 F 

Revues 27 28 a 45,00 F 

Dlsq utiles Apple H, //e, Ik 

1/2 3 4 5 6 7 8 9' 10 11 12 13 14 15 a 60,00 F 

16 17 18 19 20 21 22 23 24 25 26 27 28 

Disquettes Macintosh 

14/15/16 groupies a 150,00 F 

17 18 19 20 21 22 23 24 25 26 27 28 a 80,00 F 

Mac 'A* a 80,00 F 

MacAstiices h 200.00 F 

"Raccomci" a 200,00 F 

Abonnements Pour 6 Humerus h piirlir du a" 

Abonnement a la revue seuk h 225,00 F 

Abonnement revue + disquettes Apple II, //e, //c h 525,00 F 

Abonnement revue + disquettes Macintosh a 625,00 F 

Rcliurcs toilccs 

Pour 6 numeros, un an de Pom's a 60,00 F 

Total TTC : 



Supplement avion hors CEE : ajoutez 15.00F par num£ro et/ou disquette 



Envoyez ce bon et voire riglement d : EDITIONS MEV, 64 rue des Channers 78000 VERSAILLES 
Nom : 



Arlresse : 



Impnmerw Rosav. 94.5U) vincennes. Impnme en France. DepOl legal Janvier IVti/ N 41£i 
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Bon de commande 'Communication' 



Pom's s'est interesse ces dernicrs numeros a Fouverture de votre ordinateur sur le 
monde exterieur. 

Pom's 26 : Apple //, Carte SuperSerie & CP/ML Programme permettant de 
configurer ^implement la SSC sous CP/M 

Pom's 27 : Apple //, Carte SuperSerie & CP/M 2eme partie. La communication 
selon le protocole XMODEM. 

Apple // & Minitcl. Programme cTenregistrement et de restitution a 
loisir des ecrans Minitel (par ('interface Serie). 
Macintosh & MiniteL Programme cTenregistrement et de restitution 
a loisir des ecrans Minitel. 

InterPom's Apple // et 
Pom's 28 : InlerPom's Macintosh pour transmettre des fichiers par MiniteL 



Je desire recevoir ; 

Revue 26 27 28 a 45,00 

Disquette Apple// 26 27 28 a 60,00 

Disquette Macintosh 26 27 28 a 80,00 
»»»» Cable de liaison 

Apple ][+,//e, //e+ a 225,00 

Apple //c a 225,00 

Macintosh 128, 512 a 225,00 

Macintosh Plus a 225,00 

Je desire m'abonner : 

A compter du iiumero 

(6 numeros, Un an, PossihililA d'ahonnement ritroactif) 

Revues seules a 225,00 

Revues et disquette Apple // a 525,00 

Revues et disquettes Macintosh ^ 625,00 

Total TTC 

Supplement avion hors CEE : 15,00 F par numero el/ou disquette 



Envoyez ce bon et votre reglement d : Editions MEV, 64, rue des Chantiers 78000 Versailles 

Nora ; 
Adresse : 
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LA REVUE HIGH TECH DE LA MICRO 




BULLETIN DABONNEMENT : a reio«mcr a lopdinatbur individue 

5, place du Colonel Fobien 75491 Paris C-cdcx 10 

Oui , jc m'abonnc pour 1 an (11 numeros) : 220 F au lieu de275 
prix total au numero. 

Je joins mon reglement par cheque 6 Ibrdre de L'ORDINATEUR 
INDIVIDUEL 



NUM. 



Hrenom . 



Adresse _ 



Ville. 



Code postoll L 

Pays 



Dote. 



Signature _ 



A note* :Ur«phoi«op«ede(ebulletif>lie«littioo toelure fpri« indav* TTC, TVA4Sind;»C 

Pom's 



